<snapdata remixID="12126049"><project name="day before vacation" app="Snap! 7, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAADzBJREFUeF7tnAtMlFcWx88MzwEBn4CKUkUFH/isilAUFY2pYta37rZpgrG23TbZNlHT7FprzaZ1tVGbaLt9pEZXXDVr66OrzYq1Eaxa47u+8UHVglUR5T0ybP6H3umUMswMznBn4NyEMDDf3HO///f7zj3n3PuNoaampoakiQKaFDAIgJqUF7OsgAAoIGhVQADUKr8YFwCFAa0KCIBa5RfjAqAwoFUBAVCr/GJcABQGtCogAGqVX4wLgMKAVgUEQK3yi3EBUBjQqoAAqFV+MS4ACgNaFRAAtcovxgVAYUCrAgKgVvnFuAAoDGhVQADUKr8YFwCFAa0KCIBa5RfjAqAwoFUBAVCr/GJcABQGtCogAGqVX4wLgMKAVgUEQK3yi3EBUBjQqoAAqFV+MS4AtnAGfvrpJ7p69SpVVVV5VImYmBjq2bPn72wIgB6V3bs7B3jFxcUMRqtWrTw2WHwD4Llz5xjyQYMG/caOAOgx2b27Y4vFQt9++y2NGjWKjEZjkwz21KlT1LZtW+rSpYvVngDYJNJ7nxFMvfB+CQkJ9OOPP9KtW7fowYMHHhlo165dqU+fPnTt2jXuv1u3bgKgR5T2oU4VDMHBwXTz5k3q0KEDj/7BtfN07vP3yFJV4eBsDJQ6byGVdkwgk8nEx1ZWVhL6U62oqIinXX9/fz5GHScA+hAonhqqArC8vJyhOXv2LPXr14+K/vcvCvtqNZs1hramoNgEKj93uN5htJuziK72GMPTKtrDhw8pIiKCXwPq2NhYKigooN27d1NSUhJ7QfGAnrqiPtavAhDAnD9/nj0gYsFH2VkU+tVqCk4YShHpz5G54BqZEp8hc8ENMhdep5LcHWQuzOezBYB5caOpXbt2/Dem9PDwcH6N/nv16mUFcNiwYQy4AOhjoHhquApAAHP//n2ePoOCgqhk/2YGMHTYBApLnkwhA0aSX1hbKvjgVQpLnUq3//6cdUgA8Er3NLp8+TL17duXkNjYAhgfH88A7tq1i4YOHUr9+/cXAD11QX2tXwVgWFgY3bt3zzr8wh3/pOic9fWejqlfCpWfzbW+12bWAvaAKn5EzIf+lAfs3bs3A7hz5056+umnaeDAgQKgr4HiqfEqAFH/u3v37q9erV078j+4mWocJCEG/0AKnjifrl+7SmXltQlLSEgIGQwGfn39+nVC/Q9xYFZWFg0ePJh/ZAr21BX1sX4VgKGhofTzzz9bR3/3+2yq2riYAoy1IDlqrbvEUdhft9Lt27d5Cgd0gBoAAkYAuGnTJi5AwwsKgI4UbSHvKwDhtQ4ePEgXLlygOXPm0MN9m6hLK3+6v2WlVYkOmcvoUe5Oqrj4fb3qhH54hgoLCzkDLi0tZfAAIGI+TMFffvklA4g4UABsIYA5Ok0FIGpzKEojE0amiiwYABqMfuTXOpJMCUOp4tJxslSWkaW0mLvF64j0P9GtpTM5Iw5Zd5o94IkTJ7jcgnbjxg0aMGCAFUC8Hj58uADo6MK0lPdtC9FYkouMjOQlMmTB7fOPWWUwmmrXiC1lJdb/1TyupKDY3lT89Qb+n2ntKZ7Gn3rqKV5VwTQMDwivBw/4xRdfsDccMWKEANhSAHN0ngpAxG2ARDXDhVwK/fcSRx+3vh8Y05PKXv2cM2n0VV1dzb/hAZF0oO/t27dTYmIipaSkNE8AUcPCFODtDTGSWjXQPVYFYGBgIE/BqvkbDXTr0NdENRanhlhc/JDjPrSAYBMNnzmX15Sx0wbnih+ssgQEBFBqamrzAxAlhB9++IGw4O3tDdMULkTdLUk6xq0AxHjy8/MJO1WGDBlClcf2Uoc9q+mXaorLQ7PMXUXmboN4/Xf//v1c4MaNh7+x8wat2awFY+3x5MmTHDzbLoK7rFoTfgDjxWpB9+7dm9Dq700pAAHGd999Rzk5OfTiiy+SOXc7Rd27TNUlReTfJooeF90hTLNVNy9TSOIzZAgIJqMphLNi/F16Yj+FDhpDZWdyuEhdOfMtsiSO5lIMPCHg7tixIyc5aWlpzQvA+rb3aL2qThg3m818sUePHt3g0VhVeNLtUajxIbmorynt/Pz8aN++fbwdC2UYlQX7hUZQ2dlcCh81neGryDtFQd36UUBULJlv51Fw/FAGzhhSu/KBdm/zcqqYsZgB3LNnD82YMYPu3LnD7wHAMWPGCIBbtmyhWbNm2b34Bw4csN6p6qBLly5xjKnuYCc4a/CQb775xi6Ajx49ojNnznAtDQA9SQPsiM+wJKaWy1R/tgDCS3Xu3Jkz2YATeyk8N4tBMwQGkV9IOFWXFlONuYpMfZO4JMMQFt7g3w+zswhLdGgAsnz636im/xheknv//fd5CkbIgcQkPT295QKIrGz9+vV0+vRpeu2113g38PPPP893PjI3Bdezzz5LI0eOpIULF9KyZcto7NixtHjxYlqyZAlvK8dUP3HiRK7uT5o0iTZv3kzz5s2jTp06Oc2KPQABzKFDhzhjdFeyUlJSwucMCNu0aWMdowIQO2CgjWrmvJPUpvCC0+dS90Dj+EwqLa/kmO/YsWP06aef0po1a9gDjh8/vuUCuHTpUgYJ0wLAwV0PaLCTAxdp3bp1LM7bb7/N3gdTx+PHj/nioH41c+ZM3tdWVlbGMefRo0cZXExh+P3OO+84fdHsAQgosKMkLi7O6b6cORCrFPDgtsmPAhDnmpuby3v5lLdypk9XjoE3PHLkCE2YMKHlAogdGbgjUSCFF8OUhPgIFwcZ9EsvvcTiYJrA/rbXX3+dPvvsM5o9ezbHbIsWLaKXX36ZF9zh8Xbs2MGVfmSPGRkZ1oV2Zy5MQwDi87ZZojP9OXNMXZsKQHwWr3EeU6ZM4cxV2UdsiAIyNq2iVIOQAK9x0yGzRbiABCM6Opq3dOGGxdNvtk/Y4Tjc5KhWYHape34+/UyIO5KQyZMnc6UeojZVcwQgPDKe1UAtraKigtq3b88xGsIG1NKw2xgXH/Hd6tWr+b0VK1ZwNotSCnSBV4YnReyFZg9A9A843n33XZo/fz6Dph6fzM7OZq+J0AAFZdxwGBtiYmTxeA8zhaolIvF44YUX2JuitW7dmo/FxlSMDaGLANhUlDVgxxGAq1at4gsMj7Fhwwb2tshQsbIA7w2PjP99/PHH9NFHHzFAycnJDNy2bdv4ggMOrM0idm0IQHz28OHDXKNDWAJw4eWVZ0TciP/BqyFkgc1x48ZxwoKYLi8vj+NVvI/ZBZDCS+JzCj78Rp94TwB0AUDs5EXcghjJXRlwfTCoISmPjilr48aNnAS9+eab7AmnTp3K0xumPGSXiN0AwxtvvMEeCp4R0x2yeMAL8BD32gMQa7aABtBu3bqVrly5wq/htRpqKpFBmcheA5Dor0ePHjz9YtzwzKok02wK0Y2ZgnGBMIVhSsD0C0+C2Gfv3r38TARe44Jg3XLlypWclCDhwF2Nn8zMTL6oiBM/+eSTRj1T68gD4gJhKgRs8DDwephmkUnCu6llR3gkwInwAdDhYuOz8E74rOqjPuiRcBw/fty6QQA1R3hCwOzOhq36quje7B7LbAyAEBcJBrwFyh0oUQA8ZJ/wNtgbh35x8TA9LV++nOMrZL8LFiygtWvX8rH4DP5W05UrF60hALGTxN2rJPA88HjwQrYNUzRiRPW0mivn4OqxABz2ECqouBR9tMgkBF4QomMNGeUB7GGD94BnQbUemSBqgQANP1gvRZaHAjGyYXgKNHhJvOdqswcgvBLqgIjfHE2FztqE18ZNhsSivtoioEAigoqAKv/YZsjO2mnoOGiH5AUxYN3zapEAukPUxvYBD4cbwN5SHDwFdo/AS2CahzfExUPYgJvBlYYYD/3h6TRMyfYavD2yXEzfFy9e5ClfPd3mij17xwI62yK47XE+DSDuLAS72OqtHoZxh2Ce7ANb3xGz1fdNUbZ2UbNE3IeYDHEgAnqUO1xpOB6hhqPvfoHXxcoFvKU7V2GcGatPA4gTRIqPuxyFZXgNtSSmVjKcEaEpjkGRFuPEb/V0mD27eMAbUyNWEHBjYRlNfa2Fvc/AszbmJkTYAa8Hb4sHxx3B6m6tfB5ACKI8IUQEgMgWMV158ivHnLkQgA2eBQ2xIjyS7TdD2esDW7ZQ5sDU6coa8yuvvML9A1wsOUZFRTkcJgDElOuutWeHBusc0CwAxIVG9oppCtMVpjdMX7rboWNHac4Hb1FG2jhKju5BGam1u0QaaojbUFrB8xWu7nHEujWWCdUuGtyY2HABz4jyUWM8pKc1bBYAIg5EmQHBLrxGY0ojnhL6Pzn7aPq2FURGIxnKzZQYGkWThqTQyM4JlJaU8puShDvGgKI56pf1NdyoWF2ZO3euy/GkO8ZWXx9eBWBOzgGqNmcTGVMoJSXdOn01dPJYJoL38xavV99YM1ctoc/zj/7urcASM42O7El/SZtCE8bVblV60oatZsiYVcO6LJbOEI5gOU99kdCT2nHX570KQJzUivcmUlzsf+nuPX8KaZVO0Z1SKKbrHyg+vq9XTiGOLsT5ixdo8D/+TBXhv2Swj6upqyWEpgwfRUmRcZSROvaJN56qMWBHD9ZzsbsHz+CiOqC+kcrROHW973UAIpvblpVK/sZfvwQH5a/8m8HUK34GWWgQDUuaTdHR9utausSsaxdljQFvZVJB0V3K6J9MKTG9aPLwNIrxQHyKbWXYpDBt2jRvOX2nxuFDAJoooc8sstBAShrxR2rfvvYbPb25HTl1nEwBQZTYu49Peu+m0NbrALSdgltFjKfIqBHUJXYKT8HSmp8CXgWgSkKMfs/QiOSxTiUhze+StKwz8ioAW5b0crZQQAAUDrQqIABqlV+MC4DCgFYFBECt8otxAVAY0KqAAKhVfjEuAAoDWhUQALXKL8YFQGFAqwICoFb5xbgAKAxoVUAA1Cq/GBcAhQGtCgiAWuUX4wKgMKBVAQFQq/xiXAAUBrQqIABqlV+MC4DCgFYFBECt8otxAVAY0KqAAKhVfjEuAAoDWhUQALXKL8YFQGFAqwICoFb5xbgAKAxoVUAA1Cq/GBcAhQGtCgiAWuUX4wKgMKBVAQFQq/xiXAAUBrQqIABqlV+MC4DCgFYFBECt8otxAVAY0KqAAKhVfjEuAAoDWhUQALXKL8YFQGFAqwICoFb5xbgAKAxoVUAA1Cq/GBcAhQGtCgiAWuUX4wKgMKBVAQFQq/xi/P9dDT4R9KLVsQAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="day before vacation"><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.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;</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="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;</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.66666666666666" collapsed="false">Like JOIN, takes any number of words (text strings) and reports a sentence with its inputs concatenated, but inserts a blank space between the inputs.&#xD;Consider using SENTENCE (Lists palette) instead.</comment><header></header><code></code><translations>de:füge Wörter zusammen _&#xD;ca:uneix les paraules _&#xD;es:unir las palabras _&#xD;fr:fusionne les mots _&#xD;pt:uma frase com as palavras _&#xD;</translations><inputs><input type="%mult%txt"></input></inputs><script><block s="doIf"><block s="reportListIsEmpty"><block var="words"/></block><script><block s="doReport"><l></l></block></script></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></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="636"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAADoVJREFUeF7t1cEJAAAIxDDdf2m3sJ+4wEEQuuMIECBAgACBd4F9XzRIgAABAgQIjAB7AgIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECByxcQFpoRMBzwAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="637"></list></costumes><sounds><list struct="atomic" id="638"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="3"><sprite name="Sprite" idx="1" x="134" y="-14" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="643"><costumes><list struct="atomic" id="644"></list></costumes><sounds><list struct="atomic" id="645"></list></sounds><blocks></blocks><variables></variables><scripts><script x="39" y="29.333333333333343"><block s="receiveKey"><l><option>1</option></l><list></list></block><block s="doDeclareVariables"><list><l>word list</l></list></block><block s="doSetVar"><l>word list</l><block s="reportNewList"><list><l>day</l><l>before</l><l>vacation</l></list></block></block><block s="bubble"><block var="word list"/></block></script></scripts></sprite><sprite name="Sprite(2)" idx="2" x="52" y="-17" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="0,112.2,71.80800000000002,1" pen="tip" id="668"><costumes><list struct="atomic" id="669"></list></costumes><sounds><list struct="atomic" id="670"></list></sounds><blocks></blocks><variables></variables><scripts><script x="29" y="31.333333333333343"><block s="receiveKey"><l><option>2</option></l><list></list></block><block s="doDeclareVariables"><list><l>words list</l></list></block><block s="doSetVar"><l>words list</l><block s="reportNewList"><list><l>day</l><l>before</l><l>vacation</l></list></block></block><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="words list"/></block><script><block s="bubble"><block s="reportListItem"><block var="i"/><block var="words list"/></block></block></script></block></script></scripts></sprite><sprite name="Sprite(3)" idx="3" x="-104" y="-24" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="173.4,166.464,0,1" pen="tip" id="705"><costumes><list struct="atomic" id="706"></list></costumes><sounds><list struct="atomic" id="707"></list></sounds><blocks></blocks><variables></variables><scripts><script x="17" y="23.333333333333343"><block s="receiveKey"><l><option>3</option></l><list></list></block><block s="doDeclareVariables"><list><l>words list</l></list></block><block s="doSetVar"><l>words list</l><block s="reportNewList"><list><l>day</l><l>before</l><l>vacation</l></list></block></block><block s="bubble"><custom-block s="list $arrowRight sentence %l"><block var="words list"/></custom-block></block></script></scripts></sprite></sprites></stage><variables></variables></scene></scenes></project><media name="day before vacation" app="Snap! 7, https://snap.berkeley.edu" version="2"></media></snapdata>