<snapdata remixID="14007235"><project name="lab 4.5" app="Snap! 10.1-dev, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAAERlWElmTU0AKgAAAAgAAYdpAAQAAAABAAAAGgAAAAAAA6ABAAMAAAABAAEAAKACAAQAAAABAAAAoKADAAQAAAABAAAAeAAAAAAeaS0RAAAQFklEQVR4Ae1daWxU1xU+Y493sMEGG4wxNjuEJRuEJSIsFUQhbfODJCSAShIRKUqDqEoKSkAiVZUUpaoqRVnUKEQkhEhRq0ZqmyZKQ1LEVmjCYmJWswRsbMAQMHj3TM933rzxPOwxgeMtw7kw77259557533v8zl3Ofc+X5ADWTAEugiBuC6q16o1BAQBI6ARoUsR8LdW+6lTp6i0tLS1pA6PGzAglwYOzO/weqyC7oGA79o24JYtWygnJ5sqL1ygPll9qPL8eUIjsX9uf8KFz8cnPldWVlJWnyyJKz9TTg2NDUycgaG7cjNyfo6BvHvhyst3xCNrKBH56uvrqaKigu69916kWohxBDwEPHnyJNXV1VFiYiJ988039M4779D48eMp3u+nHj3SKCszi0pKSiglJZXOnCmjFStWCDxvv/02DRgwgK5WV1PfPn0oLS2NJkyYcNPQgYRJSUk0aNCgmy7DBH8cCHjagDC7CQkJrOGCdMcdd9DXX39NgUCApkyeTBnpGbR9+w4aM3Ysa6hyuTvkC4Q60Z9//jl99eWX1NjYKDJIa/sTkHTIX5sPv6GrmgA/jscWO7/SowG3bt1K/fuzqWW7CHOYkpwihIqPj6c61krJrJUQLl++TNnZOULEBH8CJackS3xNTY1ov7i4ONaGVx0rywUFYXdDwecYZETKVdhEc7rkkkOQNWw5TZ061RWzc4wi4OmEQJlB40mrjEkDbYbQ1NREfiah891HqampdOVKlZAN6Y4Midl0ZUDM1kMk5Zpz1DJ547gOh59MzpBmbc5hV7GIgIeAovnkwQeppuoyHfvjPOodV0NX4nrSsdSRxDSE4nICVCRCiE9hWvGFT7QepyFP6LubL1K+R1MVDa49RP5gA+VNvJ+aZr+IEjmgAOfKjrGNgIeA0DquNjtYtJdm5TTSyYFzqdf0pXRbr16UlJxEF8+do/q62uuikpCUTGk906Pmg6aEya6sKKX+X62h7O82UVngBeadwzz3HLUAS4gJBFoQ0DV9IECFP5f8M5ZST+6AIH7nvz6mtA0rKd0Pfdd2yF64gsrHzKH4ODarHNCz7cM9ZDdcunSJGhoa6NvDJRSc+Cvqv2U5d2hg/p3g/g73u51jEwFPLxjWN8htwECA6cdfTiXmUWpaD+4QnOG4JqpibZWXGkcZiT4atvQPNPq3H1LOmLup8LFllP/TxdR3yAhJQ7o/2ESBpoC0EzEsg/KgXVFOE58H5jtjhp/88xPKKRwh6Eq9EfXHJuR2V5EIeDQgGl7OsIpDQCEkH3L758pAc6RWarp0nvBJHTeNfAmJlNCvgJounqX6U4fD5SP/7t27yc/jiLm5uUJASZSCw9koITktFM1DM85Vc6JdxTQCHgKCMEHWfs54iENCaC2+EvJEErDxQjnVl5UQ8QwIcY83adAoaqgsC4MFIiE/xhMRzvOMitu+lAg+XLlyRS7deGhAMe58iKzLzW/n2EPAQ0DcHhtJHJgADglAjtpap9Mx+M5JFL9vIwWuXqJLn633oFFTtMXzPT6nQDTfxYsXJT4uzteSgFevSppLwCC3AaWX3NwU9JRpX2IPAQ8BwxqQ71OumYXSMRBWBCkzr5DKpy+hNI9U66DUBZJIBrB5ag/aEIPYLtEgAU3XLycHl+F40XrIzME0oINDrB89VMJDhxnkx+/84+8N9Q30/vvv0+InnqD//W0DTfrvn4mVmYSU0ZOppnh7qxj1fuTXVNIrj/r27SvpcDBISEyQMUJEhHgmaS4xnTMKd+qXRDvENAJeAuLRs8kNDxozAfft2yeOBUnsoACCRsyqUWL+CPJn9eP8cVS1+a8eoJAXH3RCEDDFB4I53PXJGCDi4cQg7U6+Rn4+SP04WYh9BDzDMHj40g5Dx0OuSVyj4JRwlgeghRwRmPh751CwoZ5yfvmniNjmSxBr4sSJNGXKFBHFd2jYJh6e2bRpk4wNTmZHhyYeskFAulv/tXU1l2pXsYSAVwMy6VzvFhAAJJw1c5YYRPjsXauUKj9cK1gcfcT1A4yAhlUl5DHYjA+IBQ3IpUomDETD5QvBMft8toFoweNWOrQgIEwwvFeEJiAkDxzDbsJ4Tvj5Asoc1ofiWlCxJWQ1+ePFtQtuVTDbfh4rRFkYaJFWHpctxfDEMQasEUBSxIn3jMPTlgVbTEwh4CEg7oytIDMgZIKZDc294ACVHTlMu9/8PSUGHC+ZtpDIGTqKcl94j+oq6ig5OVm0YHMHB1ovNNYCwoU0nxsl9Qs726rB0mIBAQ8BnXZfSBsxAUCMoqL9dPr0aZo3bx7t3reLfvbwIgpUX6bGc6ep7uge8vEgtC+lJwXr2Z0qKZWaLlfKwHTwwhGZhrvEwy+ZmZmE8UC4dblh+PDhVFpWSgNyB4TJCLI7nRSQ0lSgi1Usn1snoGhBaKkgpbNHC7SVP4GzMin8WTylxo6quM6a/xuqLdlLKaMmUs23O6iRZ0J6TJpLpb97TDCD/NmzZ8WBtRd704S1HqdmZWXJBxndeG8PXIqwQ4wj4CEg7tXtELjtMX9CPK8H6SHjgdBK1fu3UmJOPjWUH6fqvV9R7eHd1Hi+VKblMBuSNmEOCnFgYyJnZ2cL0S7wIieXaEgsLi528rDOGz16lFyjgxKyxkLwUAY7xTACHgKCYGIGQxoQhMjilXH4gECZ+UOo5h/vUe1+B5G6Y0VyUXNgh5zj2Kng/LrVzjWb45raGmn7XeUpN/SEIwl4/PhxeuWVV2jlypU0cqTjDSPDMFynOLTy2ULsI9CCgA4JWAHhH6sjDMvsLyqSnuxtt42j8hEfCyroJ4dm6ByUZISaSePyhhtzPnbjQo/WnQ8OZZTT/XPmiKMC2oLff/+9xLkEFf5zvRZiHwEPAXG7buMfZ3Bg186dMpickZFBmzdvprG8Kg5h+44d0rmAq9WBgwdo3NhxdPDgQaqqqhLPFxBr6NChlJeXJ8s1v+Mln6NGwdQ6xMJx2NBhdODAAerXj2dTkOIhnRFQQInxg2cmxCEdiMcPH//5DNOJ9b979uwR9yloKVdTHT16lKZNm8beMnWEZZmLf7FYZk5mzpxJT/Dc8ZSpU6T9uH37NjrHMymuLM7pGelUfKBYCNrIsykIkfV7uBjjD+FWvj2PBgQBQA4ZKGYG9vJVi75aunQpPfDAA/TmG2+EyQcHU2hFzPUWFhRQZu/e9OKqF2VHg2PHjolZPXLkiHRCMJsCz5jGBl4zzGa9N+ct/raYCgoK6cSJ41TH7l2T+Ck4HSDHJ1D+CG7lJ3OL3LuHgK7Wg/EDAe5O4D1i6k+zWc2ijRs30p133RUmYL9+zvph4JSR0YsbfEF6/vnnJR3TbGcrzlJ6ejrVsS8hymtg8ola5SOGZjA2WMUr7xL88TTkxF84FnW6Y5D4IlF2iHEEPAScPGUSffrpZ7y9Rl9ebJ4mmvDh6r/Tf7htlzNoKMWVHAzBAR2J4EyssdF2vvIxnqWalx65eZyczaxy5GsuVlB25SEa4T/P4zXDQ+T2cRvyHM3hToqF2EfAszMCbvfQocP0xRf/FvM4fMggtovNsxcdCUd1fSOdLi0Xkzxr1k9oxIjhHVmdld1NEGhBQPd3dVUbzMfDNhZuHQQ8Jjjyto0IkWjYdUch4BmG6ahKrFxDIBoCRsBoyFh8pyBgBOwUmK2SaAgYAaMhY/GdgoARsFNgtkqiIWAEjIaMxXcKAkbAToHZKomGQNRxwGgCFh8dAfg1wgHD3XQpes7OT8GbD4YNGybOIZ1fe/QajYDRsbmhFGzcjl0kRo8e7dmI84YK6cDM+KOA7yW8nVz/yw6s7gcXbSb4B0PVdka4oI0cObJbkg+/HOt6xowZIyRs+046N9UI2E54w/y6GzG1U5HtXkxKSgovrehec+1GwHZ6zHDewMNduHAhvfTSS/JGKRQNT3GEyHUxO3mZw6FDhwh+k+5aaVzPmDFDZLEXT2TA/tpucPO733HG261c5xGU4wZ3rQ3253ED3uHSnYK1AdvxacAMw0McO4G99tpr8rangoICKi8vp9dff51WrVpFDz74IO3atUveqYJVgc899xwtW7ZMfgV2kQUx4X2OZRBY8gB5mE8QZ8OGDfTqq6/Stm3b2G3tBH300UdUVlZGixYtkg4GPNTxDpciXkSGpRS33367bBLajrfY7kV1rz+Hdr+9zi1w8ODBQgQQZvny5VTN785DKCwspHvuuYfeeuut8A/CKypAtHXr1oXj0EZ79NFHqWfPnkIwtCmxOy0W8WNhP94y8NBDDwlJhwwZInLwLr/vvvto3Lhx8iKhJ598Ul4kiTU4ixcvDmvYcCXd7MI0YDs/kPnz5wuBsBzh8ccfl2EPbE+H7ejwHQEvcoS2Qo907ty5Eof9c0A4LP5C2jPPPCN7J+INpGvXrhWNCGIjYDgFREWAloMMyL9kyRJ6+eWX6YMPPpCt79avX09r1qyRciQzH1xT7X7v8jP/IAvtgAAvWQ2yVmuHkq5fxLvvvnv9TFFy8B9ClJSuiY7qEd3lfxk/sh+ANhk6AHi9bXcN3fE3GgHbkS0YiEabDfvhwARj5R++oxPS1QF/HOgt47UZeB1udwlGwHZ+EthDZ+/evXQXL2HF7AOm5tCO6+rhD0zFYS13dwtGwHZ+ItgRFvspuloGHQsMjVhoHQHrBbeOy03HYtcvvAkUe+LgDQAW2kbACBgFn9WrV8twR35+Pk2fPj1KLm80tB9ezAith2kvC9dHwExwGxg9++yzMtOA/Q0xnQUyzp49W2Yn2hCzpBtAwAjYBlhwX8KAMDZTigyYfViwYIEMJD/99NOEBr6Fm0PATHAbuFVWVrYwpXAGQPsOphazD0a+NgD8AUmmAaOAhPacq91ggrHfIc8VhKfToohZ9A0iYASMAhjmbmGCn3rqKXnPSZRsFq1EwAioBNDEdQiYO5YOP5NWImAEVAJo4joEjIA6/ExaiYARUAmgiesQMALq8DNpJQJGQCWAJq5DwAiow8+klQgYAZUAmrgOASOgDj+TViJgBFQCaOI6BIyAOvxMWomAEVAJoInrEDAC6vAzaSUCRkAlgCauQ8AIqMPPpJUIGAGVAJq4DgEjoA4/k1YiYARUAmjiOgSMgDr8TFqJgBFQCaCJ6xAwAurwM2klAkZAJYAmrkPACKjDz6SVCBgBlQCauA4BI6AOP5NWImAEVAJo4joEjIA6/ExaiYARUAmgiesQMALq8DNpJQJGQCWAJq5DwAiow8+klQgYAZUAmrgOASOgDj+TViJgBFQCaOI6BIyAOvxMWomAEVAJoInrEDAC6vAzaSUCRkAlgCauQ8AIqMPPpJUIGAGVAJq4DgEjoA4/k1YiYARUAmjiOgSMgDr8TFqJgBFQCaCJ6xAwAurwM2klAkZAJYAmrkPACKjDz6SVCBgBlQCauA4BI6AOP5NWImAEVAJo4joEjIA6/ExaiYARUAmgiesQMALq8DNpJQJGQCWAJq5DwAiow8+klQgYAZUAmrgOgf8D2W9ZW0X6nOEAAAAASUVORK5CYII=</thumbnail><scenes select="1"><scene name="lab 4.5"><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;pl:_ bez pierwszej litery&#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;pl:_ bez pierwszego słowa&#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;pl:_ bez ostatniej litery&#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;pl:_ bez ostatniego słowa&#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;pl:pierwsze słowo _&#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;pl:ostatnia litera _&#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;pl:ostatnie słowo _&#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;pl:puste słowo? _&#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;pl:puste zdanie? _&#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;pl:połącz słowa _&#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;pl:lista $arrowRight zdanie _&#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;pl:zdanie $arrowRight lista _&#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;pl:słowo $arrowRight lista _&#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;pl:lista $arrowRight słowo _&#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;pl:zdanie _&#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;pl:błąd _&#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;pl:tekstowa _&#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;pl:pierwsza litera _&#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="%&apos;list&apos; Contains %&apos;Value&apos;" type="predicate" category="variables"><header></header><code></code><translations></translations><inputs><input type="%l" initial="1"></input><input type="%txt" initial="1">thing</input></inputs><script><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="list"/></block><script><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportListItem"><block var="i"/><block var="list"/></block><block var="Value"/></list></block><script><block s="doReport"><block s="reportBoolean"><l><bool>true</bool></l></block></block></script><list></list></block></script></block><block s="doReport"><block s="reportBoolean"><l><bool>false</bool></l></block></block></script></block-definition><block-definition s="Index of %&apos;thing&apos; in %&apos;list&apos;" type="reporter" category="variables"><header></header><code></code><translations></translations><inputs><input type="%txt" initial="1">thing</input><input type="%l" initial="1"></input></inputs><script><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="list"/></block><script><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportListItem"><block var="i"/><block var="list"/></block><block var="thing"/></list></block><script><block s="doReport"><block var="i"/></block></script><list></list></block></script></block><block s="doReport"><l>-1</l></block></script></block-definition><block-definition s="First e-word in %&apos;List&apos;" type="reporter" category="variables"><header></header><code></code><translations></translations><inputs><input type="%l" initial="1"></input></inputs><script><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="List"/></block><script><block s="doIf"><block s="reportVariadicEquals"><list><custom-block s="first letter of %txt"><block s="reportListItem"><block var="i"/><block var="List"/></block></custom-block><l>e</l></list></block><script><block s="doReport"><block s="reportListItem"><block var="i"/><block var="List"/></block></block></script><list></list></block></script></block><block s="doReport"><l> </l></block></script></block-definition><block-definition s="First word that starts with %&apos;Letter&apos; in %&apos;list&apos;" type="reporter" category="variables"><header></header><code></code><translations></translations><inputs><input type="%txt" initial="1">A</input><input type="%l" initial="1"></input></inputs><script><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="list"/></block><script><block s="doIf"><block s="reportVariadicEquals"><list><custom-block s="first letter of %txt"><block s="reportListItem"><block var="i"/><block var="list"/></block></custom-block><block var="Letter"/></list></block><script><block s="doReport"><block s="reportListItem"><block var="i"/><block var="list"/></block></block></script><list></list></block></script></block><block s="doReport"><l> </l></block></script></block-definition></blocks><primitives></primitives><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="816"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAAAERlWElmTU0AKgAAAAgAAYdpAAQAAAABAAAAGgAAAAAAA6ABAAMAAAABAAEAAKACAAQAAAABAAAB4KADAAQAAAABAAABaAAAAAAHwbojAAAL30lEQVR4Ae3QMQEAAADCoPVPbQwfiEBhwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGDBgwIABAwYMGPgMDI3+AAEeFvcCAAAAAElFTkSuQmCC</pentrails><costumes><list struct="atomic" id="817"></list></costumes><sounds><list struct="atomic" id="818"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="0" y="0" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="823"><costumes><list struct="atomic" id="824"></list></costumes><sounds><list struct="atomic" id="825"></list></sounds><blocks></blocks><variables></variables><scripts></scripts></sprite><watcher var="Word_list" style="normal" x="10" y="10" color="243,118,29" extX="80" extY="70"/></sprites></stage><variables><variable name="Word_list"><list struct="atomic" id="831">this,is,Every,cool</list></variable></variables></scene></scenes></project><media name="lab 4.5" app="Snap! 10.1-dev, https://snap.berkeley.edu" version="2"></media></snapdata>