<snapdata remixID="9162351"><project name="Project, plural" app="Snap! 5.4, http://snap.berkeley.edu" version="1"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAAERlWElmTU0AKgAAAAgAAYdpAAQAAAABAAAAGgAAAAAAA6ABAAMAAAABAAEAAKACAAQAAAABAAAAoKADAAQAAAABAAAAeAAAAAAeaS0RAAAL+klEQVR4Ae2beUzU2xXHv8MybIKKggi1BVHrVlFB4xPLi+KC+IS6xxitpu7vucTGVGNMXOoSzVP7R+MatWng1bpUsGpr0VZT96e+mNbt+SQuiDoIKvve37n0N8zgDGWoz5kznJsMvzt3PfecD+cuvzuGWi1AgmjASRrwcFK/0q1oQGlAABQQnKoBAdCp6pfOBUBhwKkaEACdqn7pXAAUBpyqAQHQqeqXzgVAYcCpGhAAnap+6VwAFAacqgEB0Knql84FQGHAqRrwcmrv33PnTwqrkFda/T330vzmWxkN6NraCIOh+W1wr+mWAF7MLcPn/zAh+10lgoyu6+RLq+ouIh0cEYrPIgO4s9Qs+d0OwBcl1UjOfI4/jg7DqB/6N0spH7PSzVflSDmZi7SRHvg0wu9jdu0SfRnc7T7gry6+hrenAb8eFOwSCm6KEMe+K8aef7/FX1LCm1Lcrcq47vzUTDV/+7YSA0N9mlnbOdVSOweAPGFLDG4HIF3w9rBY1FdWVqK6uhqU/vr1a6xZswZlZWXK1qWlpaipqUF6ejpMJpNKq6qqMpeneuXl5aA2qJzeFqX169dPldfbpiflUz9FRUUqT69HedOnT1d5+fn5WL16tcrX/2gOGy31WrrbrQF1o+rPAQMGYNCgQWjVqhU8PDxw7tw5nD17FkuXLsWhQ4fw7t07BVxAQABSU1MxcOBAhIeHo1u3bgq+O3fuKHBmzZqF/fv3q3RqSw/r1q1TYHt6euLq1auIjIxEVFSUyj5y5Ag2bNiA7Oxs9X3ixIlo3749QkND9eot/ul2HrChRZOSktCmTRts374dBMDYsWMxfPhw3L59G0ajEc+fP8eQIUPQp08fVZVg7dy5M3bt2oWYmBgMGzZM5b18+RLUFnm4ZcuWmbtJSUnBvn37FMSjR4/GgwcPsGTJEjx58kR5xBcvXpjL3r9/X+WZEyQCt/eAkyZNQmFhoYKQICspKVFm9/LyAnmt2NhYkJd8/Pix8lxTpkxRnjIiIgJz587Fpk2b0L17dwViXl4ekpOTceDAAcyfP1+1Q/U3b96Mvn37IiQkBCNHjsTu3buxatUqBSMBSYCTR6X2Tp8+rdoS9uo04Ha74HHakcYvegbhsyhe52oh+7Jhml03dbckON1+Cm6qMckDPn36FFeuXMGNGzdsVqPplzYUjoRr1645UrzFlXX7KbigoAA3b95U0y0t/mljMHjwYNAU3L9/fxw7dgwzZ85ERkYG/Pz8cP36ddDGY/369WqNePnyZbXjTUxMxNGjR7Fnzx61nqR2aBru0KEDTp06hUePHiEwMBA+Pj5qit25cyfGjx+POXPm4Msvv1RLAH36jY+Pb3Gg2Ruw23vAtm3bYvny5WqjQNB06dJFrc/Onz+vdsAHDx600k1xcTEqKiowb9483Lt3T4E5btw4VaZXr14KXlrLUdrKlStV+smTJ9Uu++LFi2o9SDvtW7duqV02rRvp2CUrK0t9aCMkoV4Dbu8Baai0kyUQ6IjkxIkTyvsZDAYFS70q6mOUFxcXp45XWrdujRUrVqhMb29vXLp0CWFhYTh8+DAoTw+00aBpnI5waIdNfRHI5BH9/f3VkQ7lCYC6xv771NY1bhV+9ufntSceFVmNaerUqbXaVKvScnJyarUDYhXXzgCtytn6oh2/mMtTvl5HO2axVVylaYfZtdqh93v52pFPrbaGfC+dEtrvfWQz3d0TW4QHTEtL0648GdS/HHkhPdCa7X+FhofGep1OnTrZrUrHO8HB77+L7tixo906LTXD7deAZFgdPkeM3PB1WcO6NN3u3bsXW7duVWd/stttqKGmfW8RHrBpqgAWLFig1nG02dCmaqxdu1YdIi9cuFBB9vDhQ7Wmo9d3ixcvVm9R6LUbrf9o00Gv8SQ4poEW4QEdUUlmZibOnDljrqJfKKAEOkbR1mTqc/fuXVVmxowZ6viFds0SHNeAe3rAuuWe49rQatB73h07doBurdDrODr7W7RokTq+oQbJ49HRDp0lEox6morIH4c14Hav4r44b8KP2xixKKb+iKSpWqHzvDFjxjS1+Acr942pHDOyXuH2VPsbmw/WmYs15HZT8NRugdh8owC5xVUOq9oZ8FXV1GLxhTws6uP4P4zDA3TBCm7nAUnHB+6+036UlIeFPwlC97ZGzO4VhLcVNfjNN29cygT0o6Q/fFuEIeG++P2IDi4l28cSxi0BJOWRB4z56ik2ftIOIX6emKVNcdO7B6Kdr+s4faN2FTpZ+zVcn3bGj2Vvl+uHzSbk+PHj5hvHI0aMUJdGG9PmY+03wZU1wInsYlD8r6kdMaCDb2NVJM8JGmDlAbds2QK6nULhzZs36kIAXY+nS6f6Gwpdh8mZufjb0xL8sl8bbB7cTk+Wp4tpgBWApDs6Enn27JmVGuk4hO7p0W866KJA5CcjMf/vJmz/aTvxelaacr0vbKZgUh2BR28oLAP9wq13797o2bMnEhISEB0drbL/OTHCspjEXVQDbACkNxIbN25UP/QJCgrCqFGjQBcChg4d6qKqFbGaogE2UzDdw6Nfmk2ePFn9aKgpg5Myrq8BNgC6vipFwuZowHUOxZojvdRhrwEBkL0JeQ9AAORtP/bSC4DsTch7AAIgb/uxl14AZG9C3gMQAHnbj730AiB7E/IegADI237spRcA2ZuQ9wAEQN72Yy+9AMjehLwHIADyth976QVA9ibkPQABkLf92EsvALI3Ie8BCIC87cdeegGQvQl5D0AA5G0/9tILgOxNyHsAAiBv+7GXXgBkb0LeAxAAeduPvfQCIHsT8h6AAMjbfuylFwDZm5D3AARA3vZjL70AyN6EvAcgAPK2H3vpBUD2JuQ9AAGQt/3YSy8Asjch7wEIgLztx156AZC9CXkPQADkbT/20guA7E3IewACIG/7sZdeAGRvQt4DEAB524+99AIgexPyHoAAyNt+7KUXANmbkPcABEDe9mMvvQDI3oS8ByAA8rYfe+kFQPYm5D0AAZC3/dhLLwCyNyHvAQiAvO3HXnoBkL0JeQ9AAORtP/bSC4DsTch7AAIgb/uxl14AZG9C3gMQAHnbj730AiB7E/IegADI237spRcA2ZuQ9wAEQN72Yy+9AMjehLwHIADyth976b1sjaC2Fjj3rBQF5dW2siVNNOCQBtr6eGLYD/xgMLxfzVCrBcvkzOxiTDj1AuOiA9A72GiZJXHRQLM08K/8Cvzpu2IcTQ5DSlSAVRtWHvBCTilmn32FJzN/hI4BVllWleSLaMBRDeQWVyHmq6c4MjoMCRF+5upWlKU/KMIXfVor+CoqKlBeXg4PDw/1MdeQiGjAQgMGbV719vaGp6cnCgoKkJ6eDmJHD0lJSejRo4diitgixuwC+FZb84UHeKq6OTk5yMrKUvBRJ5aBZm1K05+UZxm3LGsrbqusnqY/bdXT0/Qy+pPSLeN6OXtPW2X1NP1pry6l62X0p2VaY/X0PMt6DdNs5ell9KdeRn9SumVcL2fvaausnqY/7dWldCpDjokY6Nq1K+Lj42EymfD11zeQkpKiqtYRY0Dui1xkZGQgNTVVpRNjlsHKA1pm5OfnIzY2Fj4+PvDy8lKdWeZLvGVrgOAjr0fej0JaWhomTJioeb9yK8X4+/vD18fXKs3yi10AqQMCjxogCIl4CaIBSw0QIzoX5BU132jOvnDhAqKjoxEcHIzKqipzesOIXQCpQSKcICTK9Y4aNiDfW64GCEDLoH/dtm2bmj0jIyNRWFiozZ71YFqWp7hdACmTAKQPwScAkkYkNKYB5QS1AgkJCepTUlKi+UT78FFbjc6rRqNRwGtM45Jn1oClN4yLiwPBR6HO+Vl7SnMlLWLXA8bExKhGdA9oWUniooGGGpg2bRpo3efjQy8v6oCrqamBKc+E0JDQhsXN360A7BTojbLqOpdJa7+goCBzQYmIBhrTQEhICBITE9Vu2NY5INUltogxy2D1Kq6sqhbt92Xjt5+G4Oc9Ai3LSVw08H9p4Hd3C/H5eRPyZkfB16t+SrYCkHq4/rIMq6/k46x2GUGCaOBDaSBRu4ywflAwBnSwPhN8D8AP1aG0Ixpoigb+A2TqHUZolTyCAAAAAElFTkSuQmCC</thumbnail><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="true" codify="false" inheritance="false" sublistIDs="false" scheduled="false" id="1"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAAAERlWElmTU0AKgAAAAgAAYdpAAQAAAABAAAAGgAAAAAAA6ABAAMAAAABAAEAAKACAAQAAAABAAAB4KADAAQAAAABAAABaAAAAAAHwbojAAAL30lEQVR4Ae3QMQEAAADCoPVPbQwfiEBhwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGPgMDI3+AAEeFvcCAAAAAElFTkSuQmCC</pentrails><costumes><list struct="atomic" id="2"></list></costumes><sounds><list struct="atomic" id="3"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites><sprite name="Sprite" idx="1" x="-83.19933554817521" y="60.59800664451811" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="8"><costumes><list struct="atomic" id="9"></list></costumes><sounds><list struct="atomic" id="10"></list></sounds><blocks></blocks><variables></variables><scripts><script x="30" y="30"><block s="receiveGo"></block><block s="doForever"><script><block s="doAsk"><l>what word would you like to make plural?</l></block><block s="bubble"><custom-block s="plural"></custom-block></block><block s="doWait"><l>3</l></block></script></block></script></scripts></sprite></sprites></stage><hidden></hidden><headers></headers><code></code><blocks><block-definition s="all but last letter of %&apos;string&apos;" type="reporter" category="operators"><comment x="0" y="0" w="217.99999999999997" 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></translations><inputs><input type="%txt"></input></inputs><script><block s="doDeclareVariables"><list><l>result</l><l>i</l></list></block><block s="doWarp"><script><block s="doIf"><block s="reportEquals"><block s="reportStringSize"><block var="string"/></block><l>0</l></block><script><block s="doReport"><block s="reportListItem"><l>1</l><block s="reportSum"><l>0</l><l>0</l></block></block></block></script></block><block s="doSetVar"><l>result</l><l></l></block><block s="doSetVar"><l>i</l><l>1</l></block><block s="doUntil"><block s="reportEquals"><block var="i"/><block s="reportStringSize"><block var="string"/></block></block><script><block s="doSetVar"><l>result</l><block s="reportJoinWords"><list><block var="result"/><block s="reportLetter"><block var="i"/><block var="string"/></block></list></block></block><block s="doChangeVar"><l>i</l><l>1</l></block></script></block><block s="doReport"><block var="result"/></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></translations><inputs><input type="%txt"></input></inputs><script><block s="doReport"><block s="reportLetter"><block s="reportStringSize"><block var="word"/></block><block var="word"/></block></block></script></block-definition><block-definition s="map %&apos;function&apos; over %&apos;lists&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%repRing"></input><input type="%mult%l"></input></inputs><script><block s="doWarp"><script><block s="doDeclareVariables"><list><l>mapone</l><l>mapmany</l></list></block><block s="doSetVar"><l>mapone</l><block s="reifyScript"><script><block s="doIf"><custom-block s="empty? %l"><block var="data"/></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doReport"><block s="reportCONS"><block s="evaluate"><block var="function"/><list><block s="reportListItem"><l>1</l><block var="data"/></block></list></block><block s="evaluate"><block var="mapone"/><list><block s="reportCDR"><block var="data"/></block></list></block></block></block></script><list><l>data</l></list></block></block><block s="doSetVar"><l>mapmany</l><block s="reifyScript"><script><block s="doIf"><custom-block s="empty? %l"><block s="reportListItem"><l>1</l><block var="data lists"/></block></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doReport"><block s="reportCONS"><block s="evaluate"><block var="function"/><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportListItem"><l>1</l><l/></block></autolambda><list></list></block><list><block var="data lists"/></list></custom-block></block><block s="evaluate"><block var="mapmany"/><list><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportCDR"><l/></block></autolambda><list></list></block><list><block var="data lists"/></list></custom-block></list></block></block></block></script><list><l>data lists</l></list></block></block><block s="doIfElse"><custom-block s="empty? %l"><block s="reportCDR"><block var="lists"/></block></custom-block><script><block s="doReport"><block s="evaluate"><block var="mapone"/><list><block s="reportListItem"><l>1</l><block var="lists"/></block></list></block></block></script><script><block s="doReport"><block s="evaluate"><block var="mapmany"/><list><block var="lists"/></list></block></block></script></block></script></block></script></block-definition><block-definition s="empty? %&apos;data&apos;" type="predicate" category="lists"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><block s="reportEquals"><block var="data"/><block s="reportNewList"><list></list></block></block></block></script></block-definition><block-definition s="keep items such that %&apos;pred&apos; from %&apos;data&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%predRing"></input><input type="%l"></input></inputs><script><block s="doWarp"><script><block s="doIf"><custom-block s="empty? %l"><block var="data"/></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doIfElse"><block s="evaluate"><block var="pred"/><list><block s="reportListItem"><l>1</l><block var="data"/></block></list></block><script><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="data"/></block><custom-block s="keep items such that %predRing from %l"><block var="pred"/><block s="reportCDR"><block var="data"/></block></custom-block></block></block></script><script><block s="doReport"><custom-block s="keep items such that %predRing from %l"><block var="pred"/><block s="reportCDR"><block var="data"/></block></custom-block></block></script></block></script></block></script></block-definition><block-definition s="plural" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIf"><block s="reportEquals"><l>y</l><custom-block s="last letter of %txt"><block s="getLastAnswer"></block></custom-block></block><script><block s="doIfElse"><block s="reportListContainsItem"><block s="reportNewList"><list><l>ay</l><l>ey</l><l>iy</l><l>oy</l><l>uy</l></list></block><custom-block s="last two letters of %txt"><block s="getLastAnswer"></block></custom-block></block><script><block s="doReport"><block s="reportJoinWords"><list><block s="getLastAnswer"></block><l>s</l></list></block><comment w="90" collapsed="false">Rule #6</comment></block></script><script><block s="doReport"><block s="reportJoinWords"><list><custom-block s="all but last letter of %txt"><block s="getLastAnswer"></block></custom-block><l>ies</l></list></block><comment w="90" collapsed="false">Rule #5</comment></block></script></block></script></block><block s="doIf"><block s="reportEquals"><l>f</l><custom-block s="last letter of %txt"><block s="getLastAnswer"></block></custom-block></block><script><block s="doIfElse"><block s="reportListContainsItem"><block s="reportNewList"><list><l>roof</l><l>belief</l><l>chef</l><l>chief</l></list></block><block s="getLastAnswer"></block></block><script><block s="doReport"><block s="reportJoinWords"><list><block s="getLastAnswer"></block><l>s</l></list></block><comment w="90" collapsed="false">Exceptions to Rule #4</comment></block></script><script><block s="doReport"><block s="reportJoinWords"><list><custom-block s="all but last letter of %txt"><block s="getLastAnswer"></block></custom-block><l>ves</l></list><comment w="90" collapsed="false">Rule #4</comment></block></block></script></block></script></block><block s="doIf"><block s="reportEquals"><l>fe</l><custom-block s="last two letters of %txt"><block s="getLastAnswer"></block></custom-block></block><script><block s="doReport"><block s="reportJoinWords"><list><custom-block s="all but last two letters of %txt"><block s="getLastAnswer"></block></custom-block><l>ves</l></list><comment w="90" collapsed="false">Rule #4</comment></block></block></script></block><block s="doIfElse"><block s="reportOr"><block s="reportListContainsItem"><block s="reportNewList"><list><l>s</l><l>x</l><l>z</l></list></block><custom-block s="last letter of %txt"><block s="getLastAnswer"></block></custom-block></block><block s="reportListContainsItem"><block s="reportNewList"><list><l>es</l><l>ss</l><l>sh</l><l>ch</l></list></block><custom-block s="last two letters of %txt"><block s="getLastAnswer"></block></custom-block></block></block><script><block s="doReport"><block s="reportJoinWords"><list><block s="getLastAnswer"></block><l>es</l></list></block><comment w="90" collapsed="false">Rule #2</comment></block></script><script><block s="doReport"><block s="reportJoinWords"><list><block s="getLastAnswer"></block><l>s</l></list></block><comment w="90" collapsed="false">Rule #1</comment></block></script></block></script></block-definition><block-definition s="all but last two letters of %&apos;string&apos;" type="reporter" category="operators"><comment x="0" y="0" w="217.99999999999997" 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></translations><inputs><input type="%txt"></input></inputs><script><block s="doDeclareVariables"><list><l>result</l><l>i</l></list></block><block s="doWarp"><script><block s="doIf"><block s="reportEquals"><block s="reportStringSize"><block var="string"/></block><l>0</l></block><script><block s="doReport"><block s="reportListItem"><l>1</l><block s="reportSum"><l>0</l><l>0</l></block></block></block></script></block><block s="doSetVar"><l>result</l><l></l></block><block s="doSetVar"><l>i</l><l>1</l></block><block s="doUntil"><block s="reportEquals"><block var="i"/><block s="reportDifference"><block s="reportStringSize"><block var="string"/></block><l>1</l></block></block><script><block s="doSetVar"><l>result</l><block s="reportJoinWords"><list><block var="result"/><block s="reportLetter"><block var="i"/><block var="string"/></block></list></block></block><block s="doChangeVar"><l>i</l><l>1</l></block></script></block><block s="doReport"><block var="result"/></block></script></block></script></block-definition><block-definition s="last two letters 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></translations><inputs><input type="%txt"></input></inputs><script><block s="doReport"><block s="reportJoinWords"><list><block s="reportLetter"><block s="reportDifference"><block s="reportStringSize"><block var="word"/></block><l>1</l></block><block var="word"/></block><block s="reportLetter"><block s="reportStringSize"><block var="word"/></block><block var="word"/></block></list></block></block></script></block-definition></blocks><variables></variables></project><media name="Project, plural" app="Snap! 5.4, http://snap.berkeley.edu" version="1"></media></snapdata>