<snapdata remixID="13490022"><project name="Restaurant" app="Snap! 9.0, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAHX9JREFUeF7tXQdYVMcW/pdeRcFesXdFxW5ssfeoaOz92XvvxhaT2BJjF8XegjWKGkt8sYsNNCAoYgFRVKSIdN73j7mXXYNKnuzdjd7zfcm6y9yZOWf+OXPa7GpSU1NTAeDq1as4ffo0/wmNRoO/Ptb7+5w5c6JFixbIli2bGMsQdPv2bZw4cQLx8fGK8u7g4IAmTZogf/78irN98eJFnDt3Tu/r+zaeyGvz5s1hZ2f3ZmwCkMIvXry4+IDAIwAlUur9jRs30Lp1a8UX4tixYyhVqpRBeb9586bYhErR2bNnUaBAAYPxTEw9e/YMrq6u0Hh7e6c6OTnJvB8/fhwVK1ZEYGAgYmJikJycDDMzMzRu3BgUVLly5fQmJ2dnZ731nV7HV65cgcQ7eb18+TIqV64MHx8fFCtWTMiAm7F27drgBqlUqZLe5qcU7xcuXEDu3LkFH1xbPz8/FC1aFE+fPhWy4Ovs2bOxePFiJCUlgSeUPig6Ohrly5eH5ocffkjt0KGDGIMDz5gxA5cuXcIXX3whJrpmzRqcP38ec+bMEUfF/fv39TEf0WfhwoX11nd6HS9cuBAS79xcERERoGCoIapXry745zHp6Ogojspr167pbX5K8b5582bUqVNH8DFmzBgsWrQI7dq1Q6tWrQQgKJOUlBR0794dR44cEeuvD6IWLFKkCDTfffedDEAOlDdvXoSFhYmdT7vM3t4eL168gKmpKWxtbfHw4UN9zEf0yZ2oJH3//fcyADlulixZkDVrVsTFxeHly5dC81MO/I9yePLkiVgcfZBSvG/cuFEGIDUg15jrmz17dlkLcv1po1EekZGR+mBXXm/NggULdACot9Ey0DGPPSXpu+++0wGgkmO/PZZSvHt4eMgANCS/HJs8a+bPny8D0NrCDMmL6sLaXIM4E2sE2rtk+hztX4fBOeGe6NfepSUe1Rgjj1GiRIlMH+99HX777bcyAC3NTRHx7RfIY2eKRI0F/OxcoDExzdT5WMU9R/H4ANGntXMlhDVbqDjv69evlwEYdscXeQ6NgJWZBtGmDnhkm7nyj4MF8r4OQq7Ex4JPx9aTEFKwiQ7Pmnnz5skAjI96gSK/dMaGrL3Rpms/0dDKygo2NtaACNa8n15ERHyoifg71XqRra0Y70FIn2PyMyVLlszQ85nVaP78+TIAE1+/Qv6t7XAgSzvU6zlWDGFubg57e7sM8c5j+vmLFx+cWmxsLGw3dYZjykuE9P1Ncd7d3d1lAD69fhKVrn6LA0XGoHazr95sDGtrWFlafpAPmiKRUVEfbMcGd/xvovrJwTAtURcP6kzX4VkzZ86c1I4dO4rwS2LMS8TtnYocA9zlRhsXTEOXx15IC8y8e0yn8R64b5tfGO4kExOTdzY+uXs9Or/YhIe9jsixt9KlS2eIocxqNHfuXEi8J8fHAtsHw3bQTrn784f3wOXIPJhlhHkATkMWI8iprHBaSImJibBMZzFvXjiFBtdn4WHvo4rzvnbtWuFgilCIz+9IvnUUhfoskXn2/GY4Wj0/R93wQcox5yCCEi3FerM/bth30eVtC9E6dySCa03V4Vkze/ZsAUAhsJiX2PurFzp36YrffvsNLVu2xPzhfTHB1AemWZyQHPX8r/41EIh8E8OWyXH0GtzPUlgY8iTteGJ6E8u5pgEe9PSS2ykNQHr2Eu9JcbG4/stPqNF7Gnbs2IFu3brh0BZ3NPVe+d6FyDV0Mawr1EPwwCrIPuwn3M1WUgZgQkJCugBkhzlX18eDvzYf3yvFO71aApBEAPq/BPIVKCRCbozLeQx1Q3fzNyaSRPlm7EDI7K//JgenmZ64l2ovHBkC8H0KJzQkBFUCVuNezSk6662ZNWuWDMDk2CgcPnFaLMr+/fvRtm1bLBjRDxPMfGFVogqsy9ZE3G1vJDwKRHL0C/FZ3O0rRKKYXDYC0N4ZVatWxb1790QcSQpkp/eax70R7vc4LDNWtmzZD+66zGzwzTffyABMSXiNPw+sQpVukwQAv/76a3htXY9eDarg9fVTsChQCib2jjBzcEJqSjJSYqPx6qIXbCo3RMqrKIRvmIHsw35EoEMJDB8+HOvWrRORA2rAdHlf9yXu9/RSnPdVq1bJAHxx87+4E2sl3jMGynXbOLwTepgH64g575RNCJ3f82+id5xBANqhUaNGIkTFY/ld680IQmX/lQiqMVmHZ83MmTNlAKa8jsah478Lu4hxqeDgYHw3sr8AIDWgQ/M+yNZ6IO52LyFrwKKbbuNuzze2W7ZRqxFs7yxrALr576O86xsjuPshuYk+g9zpzWPWrFkyAFMT43Br/0pU7joRDAozILvXfQW+SvaHY4eRCJnTBZZFysOuWjNYOpdD9Nn9yN59KmK8jyE1NloA0GnYj7jjUEKENEivX7+GhYVFuiLI694IwVqbTyneV65cKQMw4tYfCHxliRo1aog50zbfNKKzDgDNsuVCYfcbeDC2MeLv+erw4jj9FwSl2okANoH3vhAVAegasBp3q0/SWW/NjBkz0sIw8a9w4OgJeVHY0uf0MbgcmpUhxZNv1VXcfJgWK5NU87tSe/k9miKo60G57woVKmRonMxqNHPmzLQwTFI8bu5bIQAo0QM/HzhvGJTh4XLOPQS/V2nNbWxsdI5g7bRm/g1NENTtV8V5X7FiheyERPqdhX+UmQxITiZgnztKnUvzAd7HfM7l3rgdGi43kWzB9NabAKx2Zy0Cq07Q4Vkzffp0GYCahFjsP3JcNsyllvoqTii4qTnudjkgT4gpQCWJWR8pE6JJToDvXgJwglyIkSd3boxo3xivXmmh6h0TnLJ0NWyy5RC2FIFG8PEIfpfsCm5shrtam08p3pcvXy4DMMr/HPwiTWWnhKw5OWTBpD6dMhRwlzyA5h27oGLdxoJ3Ep0RbeeLMmBwu0aQOwJcx+ust2bq1KkyAE2T4rD38DHFgrPOW1oisPM+eUL6zLWmh5tp06bJvJqkJMJ373K4fJ0moNP7dqDxpRUZ2hM2LQYgzNVNruphWo8hrHeR8+YWCPx6v+K8L1u2TAZgTMAF3IrQ6ASmPSf3QxdNYIZ4lhqZ5iyIVyM2iUwZidkyyQyR2lAD1greAP/Kb0JcJK63ZsqUKTIAzZLj4fnrEZ0jWJ/VMIW3tkJAp73yhFgIoCRNnTpVBqBpahJ89vwsAMhYXa5cubDfYzWaX10Nhxb9EH16NywLlsZrv4uwrdwQSZHPYO6YGzGX38QxbZr3x2NXN9n+ZXqLWuBd5kfhLS0RoLX5lOL9p59+kgH3KvAifJ+nolatWjhz5gzq1auHXRN6YcK0mXi+eS5yjViGuICrMMueF7E3TsPExh6xvn/AqqgLkiPDYVOuDp6umwLTHAURM2KjXGJFAEpFHhJ+CMDa9z3gVykt8UCeNZMmTZIBaJGaiN0HDiumAYvtaAv/jp4y5hgGUJImT54s82qGZNzw/Bkl2w5Fnjx5RGHC6X073wCwcQ9Yla4G8xz5ELFvBZCaArOchRB1cjtsKzVEzMXDsG7eH6GVO4jqEQqfVSbpxQAl/optbwN/tz2K87506VIZgK/vXsaN8GRhLrAYITQ0FJ6T+6KXfTjMHPMga5uBsMhfAtFn9sC2Yn2E/TgUDk16IebyUdjXbiuckldXjgsARg5dLzQgZccqo7frOwnAuo8241bFUTo8ayZOnCgHoi2RhF37DykGwOI728Gvwy+yncQwgJI0adIk2d4116TghucyVOiUdkT8dz8BmFYNojG3QGpigjxFEwsrpCTEiffWzfojpHJ75MiRQ7wPDw9/LwCL72gLv46eivO+ZMkS2eaLC/LG9adJApC0Vxm12DOlH3o7sgBBIzZayusYmNhmQXJ0BMwcciLp5ROYOeZG0sunMLXLJmLDBODLIe5y/PfBgwfyv7WP4HohW3CzwkgdnjXjx4+XwzBWmmTs2HtQMQCW3N0et77aJR9T1apVUxJ/mDBhgmxuEIDXfyEA044IpiCzx4TqgO5dE9Q4V8D90DBRSUOi9ntfYLbkrq9wq/1uxXln+ZUUiI6/dwVXwxJ0bEBHO2vYPPYDUt4fQtOWg0WB0giKShBhJxLB/Hb4iRqwweNt8Ck3XIdnzbhx42QAWpukYJvnfsUAWNqzI2622ylPiDV4StL48eNlAFqYpOLa7h9R3i0NgPqcS+lfOuCm1uZTinfW+0kATAi+Cu/QOEWqYwjAL5/swI2yw3TWWzN27FjZBrQ1A7bs3qsYAMvu7QTftjvkda5Zs6Y+1/xvfY8bNy6tGsZUg2u7l6Jcx9GKzKHsHjf4tkvLOyvF+w8//CADLunBdVx6FKsYABuH78L1MkN11lszZswYGYB25hps2umpmBdcbl9n+LTZLk+I3piSNHbsWBmALEm6snMpyrulAVCfEYByezvBR2vzKcU7i3Cliujkhzdw4UGMTiBaXzxTAzZ5thvXSg/RWW/NqFGjZABmsTSFx/bdimnAige74nqrrfKEJMEoBcLRo0fLvFqbm+LKzsUo2yHNS9PnPCoe6ILrrbcpzvuCBQtkAKaG+OJccJRiGrB5xB5cKZmWWeJ6a0aOHCkD0MHKDBu27dIbALt27SqClNu2bRO3slx+7YZrLbfIiyDZJvpceO2+R40aJfNqY2EK7x1LULbDSL0Mz4U/dOgQJk6cKEIeLge74prW5lOKdxbhyhs99CbO3ovUCwCpSb/66is8f/4cW7duFU5Zi5d74V1ioM56a4YPHy4DMJuNBdZt3i6OYAKFIHlfNYuUZvonr9r9VvHqiSvNN8kTYiBUSRoxYoQMQFtLc1zevkgAkEJjTEsKJGeWDHR4P9wDV1psVpz3efPmyYAzCfsT/73zQhzB+lhvMsd+WenOy2ytovbjUrEBOjxrhg0bJscBHW0tsXbTNpHLGzp0qADfo0eP5AcGDRoElvOkR4ykax+hHLBQoULptpVKvVyP9IJ3s41yXKh+/fpK4k+UTUkFqXZWbwD4qkAtsXNJvKwvxfVYRTJ48OB05+fv7w+WkknVPwcOHBD54y5duvytfVBQkLgN5urVE97NNynOO4twpYJU0yd+OB34XGR++vbtC85NO3zC4tUBA9IAIzETFRUFXmznVV2JGF/khXPpjrX0OS827dq1S6Td2sQcxMWi/XV41gwZMkQOwzjZWWG1xxYRET969Ki4oqkdmyMoV69ejcOHD2PKlClgwSVBSsHv3LkTzZo1Q0hIiDypfPny6bznHw4ePChfQK92rA8uNdkgu+UNGjRQFIDkRypItbOywKVtC3Hfuri4iujm5iZSVNImIt8uLi4iQ8L6N2pJCpV1jyxD4pVGBp8ZC6NcKL+mTZvq8MPyNun+b7WjvXGpqYfivPPqrXTcmz31x6nb4eA3Q3h5eYGXtLRv5/EGXY8ePfDHH3+gX79+IrvDihcqJd6TZlvyQ/5FiX5kpE4GhG13794tZBkQEIB2sYdwvnBfHZ41gwcPlgGY3d4af3jMx/FQM/B4KliwoBCwdMRSY1Aj8D5plSpVxL87d+4stCIXjRe4mWscOXKkaMNkPFW+9DxtIFZZ87VqESe0CVmLi43XyxNq2LChogAcMmSIDEB7awuEbpuMM1Y1xGdMKfGSPgHITUb++MqqFQKPAWeWNpHPU6dOoVOnTuLrPbhhGd5hW8bcJN6ZHaA8RZbANB5N/vwWF7U2n1K8swhXAqB5+G3cunIe/gmOoviY2oobTJoz7xDzPYtzud78fPr06aJanCcer/ASiLxDPHDgQFFX2Lt3b9GOfXl6egoTh69lHAE3p0c459xHZ701c+fOTZWCoDkdbMWlpJO1fwZv0BPx7zp2JKRw59+5c0eOgr8LQdxhVNHSq73XFJS3DMeFRmm1Z9QsShI3h8S7g60Viu/pil+KTcZ131vigjoF/T6iBuBRy1Kj9xE1Bi/1S68vf/0eLawDcKHxevkxpXjnNx5IdZeWzwNR1HsxTrnMErYalY1UnpYeP9Jl8sePH8sZn/Ta8UrGnj170L59e/FKk8Zi50CUKlsOZwv1Fo+wWp4npubx48epvr5vKl0d7SxRcl938e+xEU1RI48ZUpEKDTSZ9vo4Kh5upheRxzRa5BvPN1onxuNFcKpqJYmxKSbOafPSBix9oCfMTIB5kXVRLKe9uJgjrr68yYx+9OuL2ETUSPJBRYs3gD3/1+YjiPntBEoQv/WBNh/JPNwfrjd+QHSKBRYnNEW57FzvzOGV/SQkA2Exifgap5HXNBqphWviQtH+Ymz6CP3793/z5UQ8QqWvhqha1VUuKdKrQFKBwDt3hOFL8PHLefjtA0oTNTJtWIKwSpXKf6tj09d8goPvC9uL4KOXqFRJPvlhTSDHtLW1QcXiheQyKn3xKmm82w/CEBL6GNSg1Iq0EQUApYG1v5JNn5PR7vtDN+eUmsfnxjsdJf6nNLFQgb6BtO46AFR6Mup4qgRUAKoYMKgEVAAaVPzq4CoAVQwYVAIqAA0qfnVwFYAqBgwqARWABhW/OrgKQBUDBpWACkCDil8dXAWgigGDSkAFoEHFrw6uAlDFgEEloALQoOJXB1cBqGLAoBJQAWhQ8auDqwBUMWBQCagANKj41cFVAKoYMKgEVAAaVPzq4CoAVQwYVAIqAA0qfnVwFYAqBgwqARWABhW/OrgKQBUDBpWACkCDil8dXAWgigGDSkAFoEHFrw6uAlDFgEEloALQoOJXB1cBqGLAoBJQAWhQ8auDqwBUMWBQCagANKj41cFVAKoYMKgEVAAaVPzq4CoAVQwYVAIqAA0qfnVwFYAqBgwqARWABhW/OrgKQBUDBpWACkCDil8dXAWgigGDSkAFoEHFrw6uAjCTMPDs2TPcvHlT/E6wMRN/o42/7i79Eryh56oCMBNWgD/azF/8rFu3rvwjfJnQrV664C+bnz59GsWLFxe/YWxoUgH4kSvAn3rlT9rXr1//I3tS7nFq6d9//x0NGjRQbtB3jKQC8COXID4+Xvzoda1atT6yJ2UfP3XqlApAZUWun9Hi4uJw7do1FChQALNmzUK1atXwn//8J8ODPXr0CNHR0XB2dsaUKVOwZMkScZzzt3xz5swpflm8UKFC7+3v+fPnuHz5Mpo1ayZeq1at+sHxVQB+UET/jgYSAG1tbVGhQgXs3bsXNWrUwLBhw7B8+XJ07twZa9euReXKlWFpaYm7d++K47pkyZLYuXOn+PXwxMRE4RQ0bNhQgDkkJET8ijvtNdppt27dQuvWrTF69GgMHjwYT58+RcuWLbFgwQIMHz4csbGxWLlyJdq1ayfmQBCSaOeFh4fj3r174tk9e/YgKipK/E0F4L8DXx+cpTYAly5diipVqqB9+/Z49eqVWHT+OriTkxMI0J9//ll8ni9fPtHu8OHDcv+vX7/GpEmThIeqrUELFy6MmJgYAST2Q21Hm3PdunUCqD4+Pvjzzz9x7tw5/PjjjwKUkga0s7MT4+zbt0+MtWLFCpw9e1YF4AdX9V/U4G0NyKlTq1Er8Qh1dHTEw4cPhXbj5/w3P5s/fz7GjRsnc8r2/fr1g5eXlziCJTIxMQFDPLly5RJgK126NLy9vdGhQweEhYWhR48e4DE+ZMgQoXX5SiCTsmbNCnd3d5w8eVLYqCoA/0XAyuhUJQDWrFkzo48YRTv1CDaKZfj4SWgDkHYbQxxmZmYf3/FH9kBtmydPnnf2ogLwIwVsLI9rA5B2HI38cuXKCZvt+++/x4QJE7B9+3YEBwcLx6FUqVKwsLDAwoULhefctGlT4bj06dNHsLRjxw507NhRhHZ4FNOOc3FxEbbkli1bUL16dWH7ffnll6L9qlWrhM354sUL8XmdOnWEzbd+/XrR77Zt28Qxzb8VKVJEFpsKQGNB0EfOQxuAku1HcNSuXVuEVmj8M5Ti4eEhPFl+xvfMRtSrV094ucykMDBMu462Gm04Pn/06FEBrLZt2woHJFu2bMKm69q1K2gbEqT0rulRz5gxQ3xOT5v2ZKtWrXDmzBn07dsXs2fPFs9p25wqAD9y4Y3l8fQAyDDMxo0bhdY6ePAgNm/eLDRRkyZNULBgQTx48AAXL14ENWbz5s0FeMaMGSPAQ8ARUAQzwcX3V69eFX/ftWuX0Gzdu3cX7NM5oZZlCIb/8XOOPW3aNCxbtkyAnM4OtSs3Qrdu3VQNaCzAyax5ZLYTMmLECPTq1UuET/RJqgbUp3QV7DuzAajU1FUAKiVpPY/zTwBIzcajmTRx4kRxRH/zzTciOL1o0SLhdNC2o4OiTbQLGWjOTDIqANIW8fPzE4HLDxEDokH+t5CSmvKhpvLfIyMikL9oSfGeNo2rq2uGnzX2hm8D8MCBA8LuYsaB6TV6xUy12djYiNQYg8mkTp06iYA0/04bjym7EydOwNTUFJGRkWCRA1NwQ4cOFYHkoKAgcCxmUegVMx0XGBgosh90NHhk0ylh5sTa2hpPnjwR/7m5uQmPmUFqbTIqAF64cCFD4CMD80d0x4pKT/8xLh71OSY/w1DEp0JvA5DZDOZwGRph3paeKEMp1GB0IhhK0aYsWbIIh4POBLUhicDkJmXIhR4sX8ePHy9eaSNKOWVmRCpWrCi8aDokvr6+Ig3HdN7169dFSIeZFWZhRo0aZbwAJAMS/fbbb2LncpcNGDBAMF6iRAkEBASI1yVje8J91QrEey2AzWBPpDwNQMqTACT5HIbGMT+Srh2AJmtupL58DLMyjZB4eafo+m7Xg/IYrPTISMXGvwGkbwNw8uTJAhDUagxIE4AMvTD2R220detWHbaYH2aIhN4wNSeJbdq0aQOCk4FtVthwHRgfJJiZYz5y5IhIyUkA5HMcg7Jl7JGFEDzaqQ3ZL58xWg1IRiRi0pyMly9fXtSLUYB8ZYyK6n3ZxH5Y7hoBk/wVYdVhAUzylkHcxgEwLVoTCccXw7RwLST9eRSmxesiOegckJwkuvZ32yOPwaAoY1ufAv0TG1Cf/FJTStUwGRnHqI5gqUKCEyfwaF8wjcMyHqp7HimMTbHdmhlDsNz1JaABIK4/8H9/vTEzB5ISAQsbICEWkN4DuNFmuywXaj/u1k+BjAWA/1SWRgVAlvYULVpU8MBLK9oXa95+Xzi3E7J7tPpH/GqaTMQlkzLiGQZHWbj5qdD/A0ApGP0xMqAzSCdDm6gobt++LSpmPkRGBUBOlsysWbNGlAvpg2i70PNjpP5TIm0A0sajB8tCU1YnMzU2aNAg4QAwU0Ebjim5MmXKiHb0bGmfMWtBD5g5ZJ4OX3zxBTZs2CBSar179xbhGfZJO5GmEItQWSVN52L16tUi50uH586dO6IekJ8dP35cnFp8hnYgTSltMjoAfkqgUJIXCYDcWNQ8uXPnFoBg6ouFo3QyeIowvEKHgd4pwUOvlSCkLXzp0iVxpZPFpj179gSjEubm5oiIiBApPLal98s+eYJQUVADciyGXtg/HR06iowv8hn2R1ub3nX27NnFPOig0KQiqQBUEiV6HEtbAxIwDg4O8mgMKhMEjN0Jazk1Va5woYfMogQCh3FCqYQrKSlJlOMzSE1i/wQvAckjln2yEJXFCXyGJxaPdPbBNlIpv9Qfq6WpPemkSM+rANQjIJTumoChxmIZlDES50d6u0ZR1YDGuFr/55y4mIybslzq30DUoLwcxZIvQ5N6LziTVoAgpC3GdCbBSGLZFVOPxkI8gpn64zxZi2gMpAIwE1eBOXU6BdQsdBZouzEtZixE+5E2KgFoLKQCMBNXglqQBQcsEmBxADNKKr1fAioAMwkh9FbPnz8vjH3G8VTKmARUAKYjJ1ayMPbm6emZ4a8xo/arVKlShquKMrY8n34rFYDprDGrSKR7F1IIw97eXtzHUClzJaAC8B3yZI0ev2XgbWIwmcWirM37lHLamQurjPemAvAdsuKNtLe/lYp2Hu/xsrrYGC6fZ3yZjbelCsB01mbkyJEihsdwBesjefQyzaVS5ktABWA6Mg0NDRX1kMYUL8v8pTeOHlUAGsc6fLazUAH42S69cTCuAtA41uGznYUKwM926Y2DcRWAxrEOn+0sVAB+tktvHIyrADSOdfhsZ6EC8LNdeuNg/H/Hb/96jXchpAAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="Restaurant"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="all but first letter of %&apos;string&apos;" type="reporter" category="operators"><comment x="0" y="0" w="199" collapsed="false">Takes a text string as input, and reports a new text string containing all but the first character of the input.</comment><header></header><code></code><translations>pt:_ sem o primeiro caractere&#xD;ca:_ sense la primera lletra&#xD;es:todos menos la primera letra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="string"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="all but first letter of %txt"><l></l></custom-block></autolambda><list></list></block><block var="string"/></block></block></script><list></list></block><block s="doReport"><block s="reportJoinWords"><block s="reportCDR"><block s="reportTextSplit"><custom-block s="require nonempty %s %s"><block var="string"/><l>All but first of empty word.</l></custom-block><l><option>letter</option></l></block></block></block></block></script></block-definition><block-definition s="all but first word of %&apos;sentence&apos;" type="reporter" category="operators"><comment x="0" y="0" w="223.000001" collapsed="false">Takes a text string as input, divides it into words treating one or more spaces as a word separator (only spaces count; punctuation is part of the word) and reports a text string containing all but the first word, with one space between words and no spaces at the beginning or end. (Note: consider using SENTENCE➞LIST and processing the resulting list instead of doing recursion on sentences in text string form.  List operations are faster.)</comment><header></header><code></code><translations>pt:_ sem a primeira palavra&#xD;ca:_ sense la primera paraula&#xD;es:todas menos la primera palabra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="sentence"/><l><option>list</option></l></block><script><block s="doIfElse"><block s="reportListIsEmpty"><block var="sentence"/></block><script><custom-block s="error %txt"><l>All but first of empty sentence.</l></custom-block></script><script><block s="doReport"><block s="reportCDR"><block var="sentence"/></block></block></script></block></script><list></list></block><block s="doReport"><custom-block s="list $arrowRight sentence %l"><block s="reportCDR"><custom-block s="require nonempty %s %s"><custom-block s="sentence $arrowRight list %txt"><block var="sentence"/></custom-block><l>All but first of empty sentence.</l></custom-block></block></custom-block></block></script></block-definition><block-definition s="all but last letter of %&apos;string&apos;" type="reporter" category="operators"><comment x="0" y="0" w="218" collapsed="false">Takes a text string as input, and reports a new text string containing all but the last letter of the input.</comment><header></header><code></code><translations>pt:_ sem o último caractere&#xD;ca:_ sense la darrera lletra&#xD;es:todos menos la última letra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="string"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="all but last letter of %txt"><l></l></custom-block></autolambda><list></list></block><block var="string"/></block></block></script><list></list></block><block s="doReport"><block s="reportJoinWords"><block s="reportListAttribute"><l><option>reverse</option></l><block s="reportCDR"><block s="reportListAttribute"><l><option>reverse</option></l><block s="reportTextSplit"><custom-block s="require nonempty %s %s"><block var="string"/><l>All but first of empty word.</l></custom-block><l><option>letter</option></l></block></block></block></block></block></block></script></block-definition><block-definition s="all but last word of %&apos;sentence&apos;" type="reporter" category="operators"><comment x="0" y="0" w="211.99999999999997" collapsed="false">Takes a text string as input, divides it into words treating one or more spaces as a word separator (only spaces count; punctuation is part of the word) and reports a text string containing all but the last word, with one space between words and no spaces at the beginning or end.  (Note: consider using SENTENCE-&gt;LIST and processing the resulting list instead of doing recursion on sentences in text string form.  List operations are faster.)</comment><header></header><code></code><translations>pt:_ sem a última palavra&#xD;ca:_ sense la darrera paraula&#xD;es:todos menos la última palabra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="sentence"/><l><option>list</option></l></block><script><block s="doIfElse"><block s="reportListIsEmpty"><block var="sentence"/></block><script><custom-block s="error %txt"><l>All but last of empty sentence.</l></custom-block></script><script><block s="doReport"><block s="reportListAttribute"><l><option>reverse</option></l><block s="reportCDR"><block s="reportListAttribute"><l><option>reverse</option></l><block var="sentence"/></block></block></block></block></script></block></script><list></list></block><block s="doReport"><custom-block s="list $arrowRight sentence %l"><block s="reportListAttribute"><l><option>reverse</option></l><block s="reportCDR"><block s="reportListAttribute"><l><option>reverse</option></l><custom-block s="require nonempty %s %s"><custom-block s="sentence $arrowRight list %txt"><block var="sentence"/></custom-block><l>All but last of empty sentence.</l></custom-block></block></block></block></custom-block></block></script></block-definition><block-definition s="first word of %&apos;sentence&apos;" type="reporter" category="operators"><comment x="0" y="0" w="236" collapsed="false">Takes a text string as input, divides it into words treating one or more spaces as a word separator (only spaces count; punctuation is part of the word) and reports a text string containing only the first word, with no spaces before or after it.</comment><header></header><code></code><translations>pt:a primeira palavra de _&#xD;ca:primera paraula de _&#xD;es:primera palabra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIfElse"><block s="reportIsA"><block var="sentence"/><l><option>list</option></l></block><script><block s="doIfElse"><block s="reportListIsEmpty"><block var="sentence"/></block><script><custom-block s="error %txt"><l>First of empty sentence.</l></custom-block></script><script><block s="doReport"><block s="reportListItem"><l>1</l><block var="sentence"/></block></block></script></block></script><script><block s="doReport"><block s="reportListItem"><l>1</l><custom-block s="require nonempty %s %s"><custom-block s="sentence $arrowRight list %txt"><block var="sentence"/></custom-block><l>First of empty sentence.</l></custom-block></block></block></script></block></script></block-definition><block-definition s="last letter of %&apos;word&apos;" type="reporter" category="operators"><comment x="0" y="0" w="260" collapsed="false">Takes a text string as input, and reports the last character in the string.</comment><header></header><code></code><translations>pt:o último caractere de _&#xD;ca:primera lletra de _&#xD;es:última letra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="word"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="last letter of %txt"><l></l></custom-block></autolambda><list></list></block><block var="word"/></block></block></script><list></list></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportTextAttribute"><l><option>length</option></l><block var="word"/></block><l>0</l></list></block><script><custom-block s="error %txt"><l>Last of empty word.</l></custom-block></script><list></list></block><block s="doReport"><block s="reportLetter"><block s="reportTextAttribute"><l><option>length</option></l><block var="word"/></block><block var="word"/></block></block></script></block-definition><block-definition s="last word of %&apos;sentence&apos;" type="reporter" category="operators"><comment x="0" y="0" w="262" collapsed="false">Takes a text string as input, divides it into words treating one or more spaces as a word separator (only spaces count; punctuation is part of the word) and reports a text string containing only the last word of the input, with no spaces before or after it.</comment><header></header><code></code><translations>pt:a última palavra de _&#xD;ca:darrera paraula de _&#xD;es:última palabra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="sentence"/><l><option>list</option></l></block><script><block s="doIfElse"><block s="reportListIsEmpty"><block var="sentence"/></block><script><custom-block s="error %txt"><l>Last of empty sentence.</l></custom-block></script><script><block s="doReport"><block s="reportListItem"><l><option>last</option></l><block var="sentence"/></block></block></script></block></script><list></list></block><block s="doReport"><block s="reportListItem"><l><option>last</option></l><custom-block s="require nonempty %s %s"><custom-block s="sentence $arrowRight list %txt"><block var="sentence"/></custom-block><l>Last of empty sentence.</l></custom-block></block></block></script></block-definition><block-definition s="empty word? %&apos;word&apos;" type="predicate" category="operators"><comment x="0" y="0" w="208" collapsed="false">Takes a text string as input, and reports TRUE if the string has no characters in it of any kind, otherwise false.</comment><header></header><code></code><translations>pt:a palavra _ está vazia&#xD;ca:paraula buida? _&#xD;es:¿palabra vacía? _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="word"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="empty word? %txt"><l></l></custom-block></autolambda><list></list></block><block var="word"/></block></block></script><list></list></block><block s="doReport"><block s="reportVariadicEquals"><list><block s="reportTextAttribute"><l><option>length</option></l><block var="word"/></block><l>0</l></list></block></block></script></block-definition><block-definition s="empty sentence? %&apos;sentence&apos;" type="predicate" category="operators"><comment x="0" y="0" w="221" collapsed="false">Takes a text string as input, and reports TRUE if the input contains no characters other than spaces (therefore, no words when the string is considered as a sentence), otherwise FALSE.</comment><header></header><code></code><translations>pt:a frase _ está vazia&#xD;ca:frase buida? _&#xD;es:¿oración vacía? _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="sentence"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportListIsEmpty"><block var="sentence"/></block></block></script><list></list></block><block s="doReport"><block s="reportListIsEmpty"><custom-block s="sentence $arrowRight list %txt"><block var="sentence"/></custom-block></block></block></script></block-definition><block-definition s="join words %&apos;words&apos;" type="reporter" category="operators"><comment x="0" y="0" w="230.66666666666666" collapsed="false">Like JOIN, takes any number of words (text strings) and reports a sentence with its inputs concatenated, but inserts a blank space between the inputs.&#xD;Consider using SENTENCE (Lists palette) instead.</comment><header></header><code></code><translations>de:füge Wörter zusammen _&#xD;ca:uneix les paraules _&#xD;es:unir las palabras _&#xD;fr:fusionne les mots _&#xD;pt:uma frase com as palavras _&#xD;</translations><inputs><input type="%mult%txt"></input></inputs><script><block s="doIf"><block s="reportListIsEmpty"><block var="words"/></block><script><block s="doReport"><l></l></block></script><list></list></block><block s="doDeclareVariables"><list><l>first</l><l>bf</l></list></block><block s="doSetVar"><l>first</l><block s="reportIfElse"><block s="reportIsA"><block s="reportListItem"><l>1</l><block var="words"/></block><l><option>list</option></l></block><custom-block s="join words %mult%txt"><block s="reportListItem"><l>1</l><block var="words"/></block></custom-block><block s="reportListItem"><l>1</l><block var="words"/></block></block></block><block s="doSetVar"><l>bf</l><custom-block s="join words %mult%txt"><block s="reportCDR"><block var="words"/></block></custom-block></block><block s="doIf"><custom-block s="empty sentence? %txt"><block var="bf"/></custom-block><script><block s="doReport"><block var="first"/></block></script><list></list></block><block s="doIf"><custom-block s="empty sentence? %txt"><block var="first"/></custom-block><script><block s="doReport"><block var="bf"/></block></script><list></list></block><block s="doReport"><block s="reportJoinWords"><list><block var="first"/><l> </l><block var="bf"/></list></block></block></script></block-definition><block-definition s="list $arrowRight sentence %&apos;data&apos;" type="reporter" category="operators"><comment x="0" y="0" w="165.33333333333334" collapsed="false">Takes a sentence in list form and reports the sentence as a text string.</comment><header></header><code></code><translations>de:Liste $arrowRight Satz _&#xD;ca:llista $arrowRight frase _&#xD;es:lista $arrowRight frase _&#xD;fr:liste $arrowRight phrase _&#xD;pt:uma frase com as palavras em _&#xD;</translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><custom-block s="join words %mult%txt"><block var="data"/></custom-block></block></script></block-definition><block-definition s="sentence $arrowRight list %&apos;text&apos;" type="reporter" category="operators"><comment x="0" y="0" w="196" collapsed="false">Takes a sentence in text string form and reports the sentence as a list of its words.</comment><header></header><code></code><translations>de:Satz $arrowRight Liste _&#xD;ca:frase $arrowRight llista _&#xD;es:frase $arrowRight lista _&#xD;fr:phrase $arrowRight liste _&#xD;pt:uma lista com as palavras da frase _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doReport"><block s="reportKeep"><block s="reifyPredicate"><autolambda><block s="reportNot"><block s="reportVariadicEquals"><list><block s="reportTextAttribute"><l><option>length</option></l><l></l></block><l>0</l></list></block></block></autolambda><list></list></block><block s="reportTextSplit"><block var="text"/><l><option>word</option></l></block></block></block></script></block-definition><block-definition s="word $arrowRight list %&apos;word&apos;" type="reporter" category="operators"><comment x="0" y="0" w="146.42857142857144" collapsed="false">report a list in which each item is one letter from the input word</comment><header></header><code></code><translations>de:Wort $arrowRight Liste _&#xD;ca:paraula $arrowRight llista _&#xD;es:palabra $arrowRight lista _&#xD;fr:mot $arrowRight liste _&#xD;pt:uma lista com os caracteres da palavra _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIf"><block s="reportIsA"><block var="word"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="word $arrowRight list %txt"><l></l></custom-block></autolambda><list></list></block><block var="word"/></block></block></script><list></list></block><block s="doReport"><block s="reportTextSplit"><block var="word"/><l><option>letter</option></l></block></block></script></block-definition><block-definition s="list $arrowRight word %&apos;list&apos;" type="reporter" category="operators"><comment x="0" y="0" w="158.57142857142858" collapsed="false">join all the items of the input list&#xD;into a single word, and report it</comment><header></header><code></code><translations>de:Liste $arrowRight Wort _&#xD;ca:llista $arrowRight paraula _&#xD;es:lista $arrowRight palabra _&#xD;fr:liste $arrowRight mot _&#xD;pt:uma palavra com os caracteres em _&#xD;</translations><inputs><input type="%l"></input></inputs><script><block s="doIf"><block s="reportListIsEmpty"><block var="list"/></block><script><block s="doReport"><block var="list"/></block></script><list></list></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportFindFirst"><block s="reifyPredicate"><autolambda><block s="reportIsA"><l></l><l><option>list</option></l></block></autolambda><list></list></block><block var="list"/></block><l></l></list></block><script><block s="doReport"><block s="reportJoinWords"><block var="list"/></block></block></script><list></list></block><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><block s="reportIfElse"><block s="reportIsA"><l></l><l><option>list</option></l></block><block s="reportNewList"><list><custom-block s="list $arrowRight word %l"><l/></custom-block></list></block><l></l></block></autolambda><list></list></block><block var="list"/></block></block></script></block-definition><block-definition s="sentence %&apos;phrase&apos;" type="reporter" category="lists"><comment x="0" y="0" w="302.6666666666667" collapsed="false">SENTENCE is the main constructor for sentences, represented&#xD;as lists of words.  It takes zero or more inputs, each of which can&#xD;be either a list or a text string.  If a list, the input is assumed to be&#xD;a list of words.  If a text string, it is converted to a list of words using&#xD;SENTENCE→LIST.  Then all the lists of words are appended to form a new list of words.&#xD;&#xD;If the inputs are lists of lists rather than lists of words, SENTENCE,&#xD;like APPEND, does only one level of flattening, reporting a list of&#xD;all the items of all the input lists.</comment><header></header><code></code><translations>ca:frase _&#xD;es:oración _&#xD;</translations><inputs><input type="%mult%s"></input></inputs><script><block s="doReport"><block s="reportConcatenatedLists"><block s="reportMap"><block s="reifyReporter"><autolambda><block s="reportIfElse"><block s="reportIsA"><l></l><l><option>list</option></l></block><l></l><custom-block s="sentence $arrowRight list %txt"><l></l></custom-block></block></autolambda><list></list></block><block var="phrase"/></block></block></block></script></block-definition><block-definition s="error %&apos;msg&apos;" type="command" category="control"><header></header><code></code><translations>pt:lança o erro _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doApplyExtension"><l>err_error(msg)</l><list><block var="msg"/></list></block></script></block-definition><block-definition s="printable %&apos;data&apos;" type="reporter" category="lists"><comment x="0" y="0" w="188.66666666666666" collapsed="false">Takes a (possibly deep) list as input,&#xD;and reports a human-readable text form &#xD;of the list (namely, Lisp notation).</comment><header></header><code></code><translations>ca:notació textual de _&#xD;es:imprimible _&#xD;</translations><inputs><input type="%l"></input></inputs><script><block s="doIf"><block s="reportNot"><block s="reportIsA"><block var="data"/><l><option>list</option></l></block></block><script><block s="doReport"><block var="data"/></block></script><list></list></block><block s="doIf"><block s="reportListIsEmpty"><block var="data"/></block><script><block s="doReport"><l>()</l></block></script><list></list></block><block s="doReport"><block s="reportJoinWords"><list><l>(</l><block s="reportCombine"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="printable %l"><l/></custom-block></autolambda><list></list></block><block var="data"/></block><block s="reifyReporter"><autolambda><block s="reportJoinWords"><list><l></l><l> </l><l></l></list></block></autolambda><list></list></block></block><l>)</l></list></block></block></script></block-definition><block-definition s="require nonempty %&apos;text&apos; %&apos;message&apos;" type="reporter" category="operators" helper="true"><comment x="0" y="0" w="220" collapsed="false">Helper function for word/sentence library.&#xD;Reports its first input, unless that input is empty, in which case it gives its second input as an error message.</comment><header></header><code></code><translations>es:requerir no vacío _ _&#xD;</translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doIfElse"><block s="reportIfElse"><block s="reportIsA"><block var="text"/><l><option>list</option></l></block><block s="reportListIsEmpty"><block var="text"/></block><block s="reportVariadicEquals"><list><block s="reportTextAttribute"><l><option>length</option></l><block var="text"/></block><l>0</l></list></block></block><script><custom-block s="error %txt"><block var="message"/></custom-block></script><script><block s="doReport"><block var="text"/></block></script></block></script></block-definition><block-definition s="first letter of %&apos;word&apos;" type="reporter" category="operators"><comment x="0" y="0" w="260" collapsed="false">Takes a text string as input, and reports the first character in the string.</comment><header></header><code></code><translations>pt:a primeira palavra de _&#xD;ca:primera lletra de _&#xD;es:primera letra de _&#xD;</translations><inputs><input type="%txt"></input></inputs><script><block s="doIfElse"><block s="reportIsA"><block var="word"/><l><option>list</option></l></block><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="first letter of %txt"><l></l></custom-block></autolambda><list></list></block><block var="word"/></block></block></script><script><block s="doReport"><block s="reportLetter"><l>1</l><custom-block s="require nonempty %s %s"><block var="word"/><l>First of empty word.</l></custom-block></block></block></script></block></script></block-definition><block-definition s="first word of %&apos;text&apos;" type="reporter" category="operators"><header></header><code></code><translations>de:erstes Wort von _&#xD;</translations><inputs><input type="%s">this is fine</input></inputs><script><block s="doReport"><block s="reportListItem"><l>1</l><block s="reportTextSplit"><block var="text"/><l><option>word</option></l></block></block></block></script></block-definition><block-definition s="all but first word of %&apos;text&apos;" type="reporter" category="operators"><header></header><code></code><translations>de:alles außer dem ersten Wort von _&#xD;</translations><inputs><input type="%s">this is fine</input></inputs><script><block s="doReport"><block s="reportListAttribute"><l><option>text</option></l><block s="reportCDR"><block s="reportTextSplit"><block var="text"/><l><option>word</option></l></block></block></block></block></script></block-definition><block-definition s="sentence with %&apos;words&apos;" type="reporter" category="operators"><header></header><code></code><translations>de:Satz aus _&#xD;</translations><inputs><input type="%mult%s"></input></inputs><script><block s="doReport"><block s="reportListAttribute"><l><option>text</option></l><block var="words"/></block></block></script></block-definition><block-definition s="is %&apos;text&apos; empty?" type="predicate" category="operators"><header></header><code></code><translations>de:ist _ leer?&#xD;</translations><inputs><input type="%s">word</input></inputs><script><block s="doReport"><block s="reportVariadicEquals"><list><block var="text"/><l></l></list></block></block></script></block-definition><block-definition s="multiline %&apos;text&apos;" type="reporter" category="operators"><header></header><code></code><translations>pt:o texto multilinha _&#xD;ca:multilínia _&#xD;</translations><inputs><input type="%mlt"></input></inputs><script><block s="doReport"><block var="text"/></block></script></block-definition><block-definition s="substring of %&apos;string&apos; before %&apos;marker&apos;" type="reporter" category="operators"><comment x="0" y="0" w="175.33333333333334" collapsed="false">Reports the part of the first string up to the first instance of the second string inside it.  If the second string isn&apos;t found, reports the entire first string.</comment><header></header><code></code><translations>pt:o texto de _ antes de _&#xD;ca:part del text _ anterior a _&#xD;</translations><inputs><input type="%txt"></input><input type="%txt"></input></inputs><script><block s="doDeclareVariables"><list><l>index</l></list></block><block s="doSetVar"><l>index</l><custom-block s="position of %s in %txt"><block var="marker"/><block var="string"/></custom-block></block><block s="doReport"><block s="reportIfElse"><block s="reportVariadicEquals"><list><block var="index"/><l>0</l></list></block><block var="string"/><block s="reportIfElse"><block s="reportVariadicEquals"><list><block var="index"/><l>1</l></list></block><l></l><custom-block s="substring of %txt from position %n to position %n inclusive"><block var="string"/><l>1</l><block s="reportDifference"><block var="index"/><l>1</l></block></custom-block></block></block></block></script></block-definition><block-definition s="substring of %&apos;string&apos; after %&apos;marker&apos;" type="reporter" category="operators"><comment x="0" y="0" w="203.33333333333334" collapsed="false">Reports the portion of the first input string starting after the first occurrence of the second string.  If the second string isn&apos;t found in the first string, reports an empty string.</comment><header></header><code></code><translations>pt:o texto de _ depois de _&#xD;ca:part del text _ posterior a _&#xD;</translations><inputs><input type="%txt"></input><input type="%txt"></input></inputs><script><block s="doDeclareVariables"><list><l>index</l><l>end</l></list></block><block s="doSetVar"><l>index</l><custom-block s="position of %s in %txt"><block var="marker"/><block var="string"/></custom-block></block><block s="doSetVar"><l>end</l><block s="reportVariadicSum"><list><block var="index"/><block s="reportTextAttribute"><l><option>length</option></l><block var="marker"/></block></list></block></block><block s="doReport"><block s="reportIfElse"><block s="reportVariadicEquals"><list><block var="index"/><l>0</l></list></block><l></l><block s="reportIfElse"><block s="reportVariadicGreaterThan"><list><block var="end"/><block s="reportTextAttribute"><l><option>length</option></l><block var="string"/></block></list></block><l></l><custom-block s="substring of %txt from position %n to position %n inclusive"><block var="string"/><block var="end"/><l></l></custom-block></block></block></block></script></block-definition><block-definition s="position of %&apos;small&apos; in %&apos;large&apos;" type="reporter" category="operators"><comment x="0" y="0" w="294" collapsed="false">Reports the character position (starting from 1) of the beginning of the first input string inside the second input string.&#xD;If it&apos;s not found, reports 0.</comment><header></header><code></code><translations>pt:a posição de _ em _&#xD;ca:posició de _ en _&#xD;</translations><inputs><input type="%s"></input><input type="%txt"></input></inputs><script><block s="doReport"><block s="reportIfElse"><block s="reportGlobalFlag"><l><option>case sensitivity</option></l></block><block s="reportApplyExtension"><l>txt_indexof(sub, txt)</l><list><block var="small"/><block var="large"/></list></block><block s="reportApplyExtension"><l>txt_indexof(sub, txt)</l><list><block s="reportTextAttribute"><l><option>lower case</option></l><block var="small"/></block><block s="reportTextAttribute"><l><option>lower case</option></l><block var="large"/></block></list></block></block></block></script></block-definition><block-definition s="substring of %&apos;str&apos; from position %&apos;start&apos; to position %&apos;end&apos; inclusive" type="reporter" category="operators"><comment x="0" y="0" w="297.3333333333333" collapsed="false">Reports the portion of the first input (string) starting at the position given by the second input (counting from 1, like LETTER n OF) and ending at the position given by the third input (also counting from 1).  If the third input is empty, reports the portion from the first position to the end of the string.&#xD;If a position number is negative, counts from the end backward, so -1 is the last character, -2 is the next to last, etc.</comment><header></header><code></code><translations>pt:o texto de _ entre as posições _ e _ , inclusive&#xD;ca:part del text _ des de la posició _ fins _&#xD;</translations><inputs><input type="%txt"></input><input type="%n"></input><input type="%n"></input></inputs><script><block s="doReport"><block s="reportJoinWords"><block s="reportLetter"><block s="reportNumbers"><block s="reportIfElse"><block s="reportVariadicLessThan"><list><block var="start"/><l>0</l></list></block><block s="reportVariadicSum"><list><block s="reportVariadicSum"><list><block var="start"/><l>1</l></list></block><block s="reportTextAttribute"><l><option>length</option></l><block var="str"/></block></list></block><block var="start"/></block><block s="reportIfElse"><block s="reportVariadicEquals"><list><block var="end"/><l>0</l></list></block><block s="reportTextAttribute"><l><option>length</option></l><block var="str"/></block><block s="reportIfElse"><block s="reportVariadicLessThan"><list><block var="end"/><l>0</l></list></block><block s="reportVariadicSum"><list><block s="reportVariadicSum"><list><block var="end"/><l>1</l></list></block><block s="reportTextAttribute"><l><option>length</option></l><block var="str"/></block></list></block><block var="end"/></block></block></block><block var="str"/></block></block></block></script></block-definition><block-definition s="text %&apos;string&apos; contains %&apos;marker&apos;" type="predicate" category="operators"><comment x="0" y="0" w="218" collapsed="false">Reports True if the first input string contains the second input string, otherwise false.&#xD;&#xD;Comparison is case-independent by default; use USE CASE-INDEPENDENT COMPARISONS to change that.</comment><header></header><code></code><translations>pt:o texto de _ antes de _&#xD;ca:text _ conté _ ?&#xD;</translations><inputs><input type="%txt"></input><input type="%txt"></input></inputs><script><block s="doReport"><block s="reportVariadicGreaterThan"><list><custom-block s="position of %s in %txt"><block var="marker"/><block var="string"/></custom-block><l>0</l></list></block></block></script></block-definition><block-definition s="ask for order" type="command" category="lists"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doAsk"><l>What would you like to order? Input item number or name. Leave blank to add nothing and "remove [number of item in the order]" to remove an item from your order.</l></block><block s="doIfElse"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block><script><block s="doIfElse"><block s="reportVariadicLessThan"><list><block s="getLastAnswer"></block><block s="reportListAttribute"><l><option>length</option></l><block var="items"/></block></list></block><script><block s="doAddToList"><block s="reportListItem"><block s="getLastAnswer"></block><block var="items"/></block><block var="order"/></block><block s="doChangeVar"><l>total</l><block s="reportListItem"><block s="getLastAnswer"></block><block var="costs"/></block></block></script><script><block s="doSayFor"><l>We do not have that many items.</l><l>2</l></block><custom-block s="ask for order"></custom-block></script></block></script><script><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l></l></list></block><script></script><script><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportListItem"><l>1</l><block s="reportTextSplit"><block s="getLastAnswer"></block><l> </l></block></block><l>remove</l></list></block><script><block s="doDeleteFromList"><block s="getLastAnswer"></block><block var="order"/></block></script><script><block s="doIfElse"><block s="reportListContainsItem"><block var="items"/><block s="getLastAnswer"></block></block><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="order"/></block><block s="doChangeVar"><l>total</l><block s="reportListItem"><block s="reportListIndex"><block s="getLastAnswer"></block><block var="items"/></block><block var="costs"/></block></block></script><script><block s="doSayFor"><l>We do not have that item here.</l><l>2</l></block></script></block></script></block></script></block></script></block></script><scripts><script x="488.69140625" y="123.63333333333368"><block s="reportListContainsItem"><block var="items"/><block s="getLastAnswer"></block></block></script><script x="474.6416015625" y="323.3000000000008"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block></script><script x="316.23779296875" y="134.16666666666686"><block s="reportListAttribute"><l><option>length</option></l><l/></block></script><script x="403" y="163.4666666666667"><block s="doIfElse"><l/><script></script><script></script></block></script><script x="532.23779296875" y="175.16666666666674"><block s="doIfElse"><block s="reportListContainsItem"><block var="items"/><block s="getLastAnswer"></block></block><script><block s="doAddToList"><block s="reportListIndex"><block s="getLastAnswer"></block><block var="items"/></block><block var="order"/></block></script><script><block s="doSayFor"><l>We do not have that item here.</l><l>2</l></block><custom-block s="ask for order"></custom-block></script></block></script><script x="311.6640625" y="260.46666666666664"><block s="reportListIndex"><block s="getLastAnswer"></block><block var="items"/></block></script><script x="599.5711263020835" y="445.9166666666665"><block s="doIf"><l/><script></script><list><l/><script></script><l/><script></script></list></block></script></scripts></block-definition><block-definition s="ask for menu items" type="command" category="lists"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doAsk"><l>What do you want to add to the menu?</l></block><block s="doIf"><block s="reportNot"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>done</l></list></block></block><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="items"/></block><block s="doAsk"><l>How much does it cost?</l></block><block s="doIfElse"><block s="reportNot"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block></block><script><block s="doUntil"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block><script><block s="doSayFor"><l>The cost must be a number.</l><l>2</l></block><block s="doAsk"><l>How much does it cost?</l></block><block s="doIf"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="costs"/></block></script><list></list></block></script></block></script><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="costs"/></block></script></block></script><list></list></block><block s="doIf"><block s="reportNot"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>done</l></list></block></block><script><block s="doUntil"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>done</l></list></block><script><block s="doAsk"><l>What do you want to add to the menu?</l></block><block s="doIf"><block s="reportNot"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>done</l></list></block></block><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="items"/></block><block s="doAsk"><l>How much does it cost?</l></block><block s="doIfElse"><block s="reportNot"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block></block><script><block s="doUntil"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block><script><block s="doSayFor"><l>The cost must be a number.</l><l>2</l></block><block s="doAsk"><l>How much does it cost?</l></block><block s="doIf"><block s="reportIsA"><block s="getLastAnswer"></block><l><option>number</option></l></block><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="costs"/></block></script><list></list></block></script></block></script><script><block s="doAddToList"><block s="getLastAnswer"></block><block var="costs"/></block></script></block></script><list></list></block></script></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportListAttribute"><l><option>length</option></l><block var="items"/></block><l>0</l></list></block><script><block s="doSayFor"><l>You have to add at least 1 item.</l><l>2</l></block><block s="doBroadcast"><l><option>__shout__go__</option></l><list></list></block></script><list></list></block></script><list></list></block></script></block-definition></blocks><stage name="Stage" width="480" height="360" costume="0" color="255,255,255,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="false" hyperops="true" codify="false" inheritance="true" sublistIDs="false" id="1259"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAADoVJREFUeF7t1cEJAAAIxDDdf2m3sJ+4wEEQuuMIECBAgACBd4F9XzRIgAABAgQIjAB7AgIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECByxcQFpoRMBzwAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="1260"></list></costumes><sounds><list struct="atomic" id="1261"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><watcher var="order" style="normal" x="1" y="1" color="243,118,29" extX="80" extY="70"/><watcher var="costs" style="normal" x="372.7291666666665" y="1.0781261458333802" color="243,118,29" extX="80" extY="70"/><watcher var="items" style="normal" x="190.33746541341134" y="1" color="243,118,29" extX="80" extY="70"/><watcher var="total" style="normal" x="2" y="272.000002" color="243,118,29"/><watcher var="mode" style="normal" x="164" y="111" color="243,118,29" hidden="true"/><sprite name="Sprite" idx="1" x="-4.1272727272726115" y="-146.21818181818185" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="1271"><costumes><list struct="atomic" id="1272"></list></costumes><sounds><list struct="atomic" id="1273"></list></sounds><blocks></blocks><variables></variables><scripts><script x="10" y="10"><block s="receiveGo"><comment w="90" collapsed="false">Allow the user to add items and their costs to the lists. </comment></block><block s="doSetVar"><l>items</l><block s="reportNewList"><list></list></block></block><block s="doSetVar"><l>costs</l><block s="reportNewList"><list></list></block></block><custom-block s="ask for menu items"></custom-block><block s="bubble"><l>Press "b"to add an item to your order and "d"when you are done ordering.</l></block></script><script x="386.9999999999999" y="155.25"><block s="receiveKey"><l><option>b</option></l><list></list></block><block s="doSetVar"><l>order</l><block s="reportNewList"><list></list></block></block><custom-block s="ask for order"></custom-block><block s="bubble"><l>Press "b"to add an item to your order and "d"when you are done ordering.</l></block></script><script x="388.9999999999999" y="285.74999999999994"><block s="receiveKey"><l><option>d</option></l><list></list></block><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportListAttribute"><l><option>length</option></l><block var="order"/></block><l>0</l></list></block><script><block s="bubble"><l>You need more items in your order. Press "b"to add an item to your order.</l></block></script><script><block s="bubble"><block s="reportJoinWords"><list><l>Your total is $</l><block var="total"/><l> Thank You!</l></list></block></block></script></block></script><script x="350.9999999999999" y="47.833333333333314"><block s="receiveKey"><l><option>a</option></l><list></list></block></script></scripts></sprite></sprites></stage><variables><variable name="costs"><list struct="atomic" id="1339">1,100000</list></variable><variable name="items"><list struct="atomic" id="1340">qwedf,hello</list></variable><variable name="order"><list struct="atomic" id="1341">hello</list></variable><variable name="total"><l>100000</l></variable><variable name="mode"><l>0</l></variable></variables></scene></scenes></project><media name="Restaurant" app="Snap! 9.0, https://snap.berkeley.edu" version="2"></media></snapdata>