<snapdata remixID="11194147"><project name="vf1387dvyu1vfhu1buifb1yufhu " app="Snap! 7, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAARrUlEQVR4Xu2dCXBUVdqG35utO3tnA1EQ2QlbAFlkERdEBNkExQ21AFf0V/QHR1Rm3GqmdKZGsZyxxGGEnx8cEQRlJwlrwh6yb0DYkrAEkkACIYRApt6j3UlIh+70BW5avq8qlXRyzv3Ofe9zvrPcc060qqqqKoiJAgYpoFkBLC4uxv79+3Hp0iWDiuLeboODgxEZGeneN2FA6bWysrKqPXv2oEmTJjCZTAYU4ffjMi8vD7feeivuuOOO389NXec70bZs2VLVokUL5Wb79u246667GuyyZj7rz/xO6969O5KSkly67pUFWb16NYYNG9bg8lkzsEz2yrN+/Xrcf//9Ng2Yxmw22z4HBATg7Nmzde7h559/xujRo2uV5/Tp0wgNDYVVU1cKe+jQIWRmZqJ169YNDgr+fn4oPFUAONmzMvn642JlJQ4cOIAOHTqgVatWrhTZ5TxaVlZWlTXyzZo1CxcvXsTAgQOxdu1aBAYG4u6771Y1et26dapwPj4+2L17N8rLy9GpUyclFM2a75tvvlHpHn74YaSlpSEoKAiVv90gr3v8+HHccsst6gEzf0ZGBtasWQNfX1+Vls0Yy6NpGk6ePImioiKMHTsW6enpmDFjBr744gtERERg3759iI+PV5Hbw8MD586dw5133glvb28QjLZt29rKy/JduHBB+Th8+LBKy78zLe+DZUlMTAS7Iby/M2fO4MEHH0RsbKy6B1ZKlp3X4N9ZNl6HGvGhvfjiiyCkVmM6/t4VI3y855rXc/Y6fF5b3xuK3gFF0DTncoUPfxO5rUaqxFYt2rdv71zma5BKO3DggG0QQgA/+OADfP7550rkXbt2qYjRrVs39TMf+gMPPICUlBSwuSEwBQUFuPfee/HGG2+A+WlM17JlS/Ww2CTxYTH69O/fH9HR0ejbty8effRRBff333+P1NRUzJ49G08//TTKysrQrFkzde1p06ap8hAGVgDm7dWrF/r166dgHD9+vIJtwIABCmKWjVAxPcu7d+9eDB48GLm5uaioqEBISIgqDx/wd999p/xdvnxZ3YOXl5cCuaSkBM8995y6HisCoWQ+Qvbyyy9jyJAhWLlypao8hHbo0KE4deoUpkyZYnschOi+++5z6fEQelZQGseH1Ib6W40RltGqZ8+eda4fHByEgg/7oH2od62/eYQ0x+WSE8Cli3XyaAMm41CbR22/P3jwIEaMGOFS2V3JpOXk5NgA5EPLyspSD+2jjz5SN8+IRqF5w99++y3mzZuHTz/9VDUx58+fVw+TAG7btk3lYy06ceKEimwEjLWS6WJiYtTDy8nJUUASLjZ7ixcvxiuvvKKgXrRokQKCkBw9elRBMHLkSAUfIxDBtlgs6jvLwwjING+//bb6vZ+fn4KDvglIdna2Ku9XX32lACSo1vIwTbt27XDbbbcp+Bk9jxw5oh42y8JKsnPnThX1eB/0xy7AqFGjVKXgveTn5yu4p06dqsC1GgFhZXDFFi5cqMpO44BwyZIlSEhIUJ9Z8ahdaWmp6hKwO0JdGdnff/99EMDCT/rVAdDvf1agIuYLVGbG1AWw/2Tsa1ndjeD1r+xWuHIfzubR9u/frwbCjHg1vy9fvlw1h3xI1t+z6e3Tp48S5sr0V36eP3++ihoE0t712aTyOlFRUaDohOP22293eN0r/Sxbtgxjxoyx5SMUBJYRKS4uzmF5rVGG5bBXTnv3+fXXX+PNN99UFcve31nJGIVdMVYY62ia+rBCMapTL1aeQYMGYfr06aqJZ5kZ5Xv37q2giQgPR/FfBtQCUPM2wTxxHrSAcJT93U6l6D8JGc2G16o8TzzxhCtFdymPtnfvXlsEPF9cgEP/+QBa+a+1OS2wNy5pXi5duCGZbrmQi6YX8lSWwJBQtH91juqnuasxArJpdsXYr7T2/1ghODXGrgH7w4SOFYyfGcHHjRunmmP2Uwlg0yZNUPLZoDoR0DzuMxX9KjPW1S1Sv4lIjqiuLGzi2X+/UaZlZ2fbAMzb8P/oc2Aujvm2QvHwv9r6Ij7eXjhdVOh0mTw8PGH2r+6UXy0jm1w2J8e2LkXPg/NhulyO0l6TURr1pNP+GltCQvHQQw+5VCwCxy4PB1oNtqrL6JD6TwTm73Q6a+W4WUgqC1HpCXmPHj3UAO1GmRoFW50d37QAzY5Eo2TMlwgP/1WA82dLkPjy3Wgb4OF0mUwmH9w2J131qQgYLTw83G5+3jTTsA/ZNeAs+u6bjZIez6K0xzNO+2tsCQmgnukiNqvs5xLGhhq7BGyqnTFGWPYnaZzyYYS9kSNg+tUyMzNtAJ7YvBBNLxfCNHSabUieELcRkT+8BW+P2uP6oCETcOn0KZzbtcbuvUbMy1EihoWFobCwsN4azcEBwz4HAhOeHI9uMa/hQvfxKOnu3gAOH17dr3IGhps1jZaRkWEDsGDLQhWp0iubKSg4qk2I24TOP/5vHQDb/ZiHsrRtKM/agcIf/lZHv/C5+1UNtgLI7/aM84ecd+No+6WXXkLg8mkI7jwIJd0nuO0zYQS8kf0otxWKETA9Pd02Cj4Z9z1CwiLgFzVcRS+OgPfEE8BpdgDMR9FPX6J08xJU5NdtKqwArlq1Ss0rcZrEnnGSmm9KOMf3wgsvIGDF2wjpPBBnoiY4PSp1dvR6o9JxFMzpIzHHCmipqam2CFi49QdYQsLhGzWs+g3B1s3osnh6HQBDxr6O4p++rNdD2Hf71JyfNQLWByD7f5zr4pQGm62gVe/A0mkgTnd7ynHpG2kKTuYKgM49HC0lJaUGgItgCQ2Db7fq963FJ0+g6Q/v4uLhDOeuCMDUtjs83/o/NZns6emp5vu4WsSeMSqxCWYfcNKkSQha/Q4ske4NIJvgGzmZ6/SDaYQJteTkZBuARdt+RLAlFOZu1VMIfLuQHrscptICp4sf1CoSAe26O52ebxHYB5w4cSIsa2aoCFjc1b0joADo3OPXkpKSbAAWb1+MIEsIzF2rAcw/uB9+s55DhNnJt9u/+Q2Zk62mYfg+lc2rv7+/3RKxCeakMyMg38Fa1r6rImBxV/eeB3zkkUecewI3eSotMTHRBuDpHUsQGBSMlPIwNTfXpUsX5KQlIWrpO3X6gKZWXeARYMH51Di7Elr+lQW+lLf2ARlJ7Rnfc3bs2FGtkmE/MYQAdhqIoi7uCyD7gAKgczVLS0hIsAFYsusnBARakFYRriIXV7OUF59E92Uz6s4DDn4S3hEtUPifz+x6Cv42U70453WsS6HsJdy0aZPt1wQ+ZN17KgIWdn7cuTtohKkIIF+TiTlWQNu9e7cNwNJdS+EXGIRFiQUq+nFlSMaenejhAoBBszNUE8wVJVxPxxfqzgAYFj0Tlk4DcKqTewPI5WZijhXQdu3aZQPw7O5l8AsIQnDv0Wo9Ht/R7twUazcCqibYPxjn0+LterECaG2C6wNw8+bNtSLg7wXAxx57zLH6kgLazp07bQCeS/hZLSLw6Vy9OsLL0xNNklfA29v5VTF8u1HUa6xaXGrddMfpGHtWE8DOnTsjPPZPsEQyAo5328fDJpiLZcUcK6Dt2LHDBmDZnl9g8vOHd6chtpxhoaGI/9tbqDp20PHVfkvRok073Prin2st0qwv85YtW2x/IoAR638F8GSk+z5AAvj44+7bhXD6QV+DhNr27durAUz8BdykUhPAvSmJ6PrTH2D2bNg0jP/XqWoUzJUZXHHBAY09qwkgVwI33fAhghWA7tuEEcAbuajzGnBg2CW0rVu32gAsT1oBH18/zN+eq/ZIcM9EdnICeq+YWWcU7BXSFJdKi1FVWWG38H7/TFFvQqx9wPr2v3PVstUUgBs/giWyP050cN9OPAF86in3nUi/kTRq8fHxNgAvJK+Et9kXgT1HYs6cOWoq4WBGCnqv/GMdAFv8+ReuZUDuu/ZfulsBXLBgASZMmFDvhveaAHJpeeDKPyD4dwAgK6+YYwW0uLg4G4AVKavgZTJjQ16VmsNjPyZ/fxb6rPpTHQCbf7gY3G9QH4C+/0jGsWPH1NZINsUcmNgzvgfmF98V88u07C0Ed2QEdN95NEZAVjoxxwqojenWZBWpq+DlY4Znx8FqhxlHsQW5h9FhwWvwuqILGDx8ErQq4PTqf9v1Yv4qSYHHPbd8FcdRsKONTPy7mQBG9sfx9u4N4DPPuO+CWsfYXLsU2ubNm20AXkxdDU8fEzw6/HpKAI1QRLW7A6cPZjvt1TuiOfYddbx4gQMQ7vqi8TSByZMno3n8X1QEPN5+rNP+GltCRsBnn322sRWrUZZH27hxY5U1Ml1KXwsPbx9o7as3VZs8PXDgnREN2hNiNvnA/NctavO6dfDBQY09mzt3rtpczk3t3Jbpv3y6ioBH2z7iVMS8UYtMG+KHkZ8LK8QcK6Bt2LDBFgEvZ6yD5umNwrCuaoUKl0l17dq11lW4SIHTKvWt72MerofjiQo1jTu9uN2Qq6yvNC5E4IIEblCyrH1PRcCjbcc4Ln0jTcEIyKVlYo4V0NavX18NYGY0NA8vHDG3VqcBcEUzF5NaD+rh5fiZfUNOsbBvx5+5j4R7SPiZJwXwKAueJMApGC7t5/QKR9Vq87Sd7YZcBUNf/B68+l0ER/ZDfhv3BpCLa8UcK6DFxsbaAKzKikZARRFizt2uDt7hWSiEr2a0I4CEiU0MoyHPMuExFVx0wJrfvHlzNap9/fXXwdMVeOQF8/C0Ah65wUUONY2wMmLyqA9C3C32NZS0G+b2ALI/K+ZYAS0mJqb6hNTsGATmRCO540tqn6j18KGa5wYSOgK5dOlSddgQIyE3MxNKRjvubGMzzKM2CCSbVcLFTUf33HNPrTciNeFj5LyQn4kxx/6FvDZjkN+m9rFnjm+l8aTgfT///PONp0CNuCRadHS0DUBtbwz6Hl6IJRiI3MBOqmkliM5YcnKyGslyIOHsqb8cmLDZ5uE6B/ZlY8SZZQgozERem9HIa+2+ALLCsgsj5lgBbd68eVU8Do1WkbwC95xcqn7OqQzFcS0c4f5efOEBENPr8L3yUhWOllRgiDnHVtr8qOdxJKKf49I3whSsfHz/zZOsxBwroM6G4TFnPKbMYglG69w1MJmNO6r3/PlyHG75sDqXryFTH85Mcl/v63F2gPucZSWMY/CsKWyHlHMDOZuO+ubrnL/kzZmS01Y8W6VNmzY3pwAu3rUNQBfzSzZRQJcCAqAu+SSzXgUEQL0KSn5dCgiAuuSTzHoVEAD1Kij5dSkgAOqSTzLrVUAA1Kug5NelgACoSz7JrFcBAVCvgpJflwICoC75JLNeBQRAvQpKfl0KCIC65JPMehUQAPUqKPl1KSAA6pJPMutVQADUq6Dk16WAAKhLPsmsVwEBUK+Ckl+XAgKgLvkks14FBEC9Ckp+XQoIgLrkk8x6FRAA9Soo+XUpIADWI9+MGTOQlZVVr7jcgsn/hvTqq6/qegA3e2YB8CoE7NixAx9//HGdf7LD7ZcEtL4Twm52qBpy/wKgA7VmzpyJtLQ0lYrHlIwaNUqdcSN2bRQQAK+iI4+MmzZtmvrn3VOnTsXQoUOvjepyFZsCAuBVYPjkk0/UgUtTpkwRZK6TAgLgVYTlfwpo2bLldZJeLksFBEDhwFAFBEBD5RfnAqAwYKgCAqCh8otzAVAYMFQBAdBQ+cW5ACgMGKqAAGio/OJcABQGDFVAADRUfnEuAAoDhiogABoqvzgXAIUBQxUQAA2VX5wLgMKAoQoIgIbKL84FQGHAUAUEQEPlF+cCoDBgqAICoKHyi3MBUBgwVAEB0FD5xbkAKAwYqoAAaKj84lwAFAYMVUAANFR+cS4ACgOGKiAAGiq/OBcAhQFDFRAADZVfnAuAwoChCgiAhsovzgVAYcBQBQRAQ+UX5wKgMGCoAgKgofKLcwFQGDBUAQHQUPnFuQAoDBiqgABoqPziXAAUBgxVQAA0VH5xLgAKA4YqIAAaKr84FwCFAUMVEAANlV+cC4DCgKEKCICGyi/OBUBhwFAFBEBD5RfnAqAwYKgCAqCh8otzAVAYMFQBAdBQ+cX5fwEoUY4ghxgEogAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="vf1387dvyu1vfhu1buifb1yufhu "><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;</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></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.00000100000003" 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;</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></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="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>pt:_ sem o último caractere&#xD;ca:_ sense la darrera lletra&#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></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;</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></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;</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;</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></block><block s="doIf"><block s="reportEquals"><block s="reportStringSize"><block var="word"/></block><l>0</l></block><script><custom-block s="error %txt"><l>Last of empty word.</l></custom-block></script></block><block s="doReport"><block s="reportLetter"><block s="reportStringSize"><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;</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></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;</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></block><block s="doReport"><block s="reportEquals"><block s="reportStringSize"><block var="word"/></block><l>0</l></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;</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></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.66666666666663" 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></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></block><block s="doIf"><custom-block s="empty sentence? %txt"><block var="first"/></custom-block><script><block s="doReport"><block var="bf"/></block></script></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="reportEquals"><block s="reportStringSize"><l></l></block><l>0</l></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></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></block><block s="doIf"><block s="reportEquals"><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></block><script><block s="doReport"><block s="reportJoinWords"><block var="list"/></block></block></script></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;</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;</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></block><block s="doIf"><block s="reportListIsEmpty"><block var="data"/></block><script><block s="doReport"><l>()</l></block></script></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></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="reportEquals"><block s="reportStringSize"><block var="text"/></block><l>0</l></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;</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="unicode of pooh" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>bguysabhjlfeuygvwufuqwgyuifwjobdfvyb</l><custom-block s="word $arrowRight list %txt"><l>Pooh Shiesty</l></custom-block></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicode"><block var="item"/></block></block></script></block></script></block-definition><block-definition s="encrypt pooh" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportSum"><block s="reportListItem"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></block><l>3</l></block></block></script></block></script></block-definition><block-definition s="encryption" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicodeAsLetter"><block var="item"/></block></block></script></block><block s="doSayFor"><custom-block s="list $arrowRight word %l"><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></custom-block><l>15</l></block></script></block-definition><block-definition s="encode message %&apos;name&apos; with shift %&apos;num&apos;" type="command" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doSetVar"><l>bguysabhjlfeuygvwufuqwgyuifwjobdfvyb</l><custom-block s="word $arrowRight list %txt"><block var="name"/></custom-block></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicode"><block var="item"/></block></block></script></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportSum"><block s="reportListItem"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></block><block var="num"/></block></block></script></block><block s="doWait"><l>3</l></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicodeAsLetter"><block var="item"/></block></block></script></block><block s="doSayFor"><custom-block s="list $arrowRight word %l"><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></custom-block><l>5</l></block></script></block-definition><block-definition s="Decode message %&apos;name&apos; by shift %&apos;numb&apos;" type="command" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicode"><block var="item"/></block></block></script></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportDifference"><block s="reportListItem"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></block><block var="numb"/></block></block></script></block><block s="doSetVar"><l>index</l><l>0</l></block><block s="doForEach"><l>item</l><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><script><block s="doSetVar"><l>index</l><block s="reportSum"><block var="index"/><l>1</l></block></block><block s="doReplaceInList"><block var="index"/><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/><block s="reportUnicodeAsLetter"><block var="item"/></block></block></script></block><block s="doSayFor"><custom-block s="list $arrowRight word %l"><block var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"/></custom-block><l>5</l></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="865"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAOhUlEQVR4Xu3VwQkAAAjEMN1/abewn7jAQRC64wgQIECAAIF3gX1fNEiAAAECBAiMAHsCAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+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+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQIHLFxAWmhEwHPAAAAAElFTkSuQmCC</pentrails><costumes><list struct="atomic" id="866"></list></costumes><sounds><list struct="atomic" id="867"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="0" y="0" heading="75" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="872"><costumes><list struct="atomic" id="873"></list></costumes><sounds><list struct="atomic" id="874"></list></sounds><blocks></blocks><variables></variables><scripts><script x="95.66666666666669" y="29.888888888888896"><block s="receiveGo"></block><custom-block s="encode message %s with shift %s"><l>Pigeon</l><l>5</l></custom-block><block s="doWait"><l>5</l></block><custom-block s="Decode message %s by shift %s"><l>UnIjts</l><l>5</l></custom-block></script><script x="234.00000000000003" y="268.0555555555556"><custom-block s="unicode of pooh"></custom-block></script><script x="112.3333333333333" y="329.27777777777777"><custom-block s="encryption"></custom-block></script><script x="209.8333333333334" y="322.4166666666667"><custom-block s="encrypt pooh"></custom-block></script><script x="11.166666666666648" y="486.2777777777779"><block s="reportSum"><l></l><l></l></block></script></scripts></sprite><watcher var="index" style="normal" x="300" y="8.500001999999995" color="243,118,29"/><watcher var="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb" style="normal" x="-1" y="5" color="243,118,29" extX="96" extY="84"/></sprites></stage><variables><variable name="bguysabhjlfeuygvwufuqwgyuifwjobdfvyb"><list struct="atomic" id="896">P,i,g,e,o,n</list></variable><variable name="index"><l>6</l></variable></variables></scene></scenes></project><media name="vf1387dvyu1vfhu1buifb1yufhu " app="Snap! 7, https://snap.berkeley.edu" version="2"></media></snapdata>