<snapdata remixID="10964234"><project name="Keyboard" app="Snap! 7, https://snap.berkeley.edu" version="2"><notes>THING&#xD;&#xD;TEXT EDITOR!</notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAAxhJREFUeF7tmLFtAmEUxv5jDMQmLEFFRcUk1IxARU3FDnQMRaIgpSA0KUBYsm8Azt+zdQXTNE1fo6cLfOgCUwF+6PK99n6BpwBvt9uYzWYP51mtVuN8PneyLvDyCzwEeLlcxnK5vL9ku92O4/E4foL8ff6G+XKaflB3gb6AOuWswQXI8qGj+VeA6/V6nE4n3XEa/P4LPAW42WzG4XAY+/1+7Ha7O8H1eh3z+XwsFov3E/UG1QX6G0almze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIClClmze2AHlOVEQFqNLNG1uAPCcqogJU6eaNLUCeExVRAap088YWIM+JiqgAVbp5YwuQ50RFVIAq3byxBchzoiIqQJVu3tgC5DlRERWgSjdvbAHynKiIvgHpnaNpw8ztWQAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="Keyboard"><notes>THING&#xD;&#xD;TEXT EDITOR!</notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="length of %&apos;str&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><block s="reportStringSize"><block var="str"/></block></block></script></block-definition><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;</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;</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;</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;</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;</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;</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;</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;</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;</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="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="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="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><block s="doReport"><l></l></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;</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="store key: %&apos;key&apos; value: %&apos;value&apos; in browser" type="command" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doApplyExtension"><l>db_store(key, val)</l><list><block var="key"/><block var="value"/></list></block></script></block-definition><block-definition s="stored data in browser" type="reporter" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportApplyExtension"><l>db_getall</l><list></list></block></block></script></block-definition><block-definition s="remove key: %&apos;key&apos; in browser" type="command" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doApplyExtension"><l>db_remove(key)</l><list><block var="key"/></list></block></script></block-definition><block-definition s="clear data in browser" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doWarp"><script><block s="doForEach"><l>item</l><custom-block s="stored data in browser"></custom-block><script><custom-block s="remove key: %s in browser"><block s="reportListItem"><l>1</l><block var="item"/></block></custom-block></script></block></script></block></script></block-definition><block-definition s="get value from key: %&apos;key&apos; in browser" type="reporter" category="other"><comment x="0" y="0" w="199.33333333333334" collapsed="false">Reports the value previously stored under&#xD;the input key in the browser&apos;s local storage.&#xD;Reports False if the key is not found.</comment><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><block s="reportApplyExtension"><l>db_get(key)</l><list><block var="key"/></list></block></block></script></block-definition><block-definition s="$flash remove duplicates from %&apos;data&apos;" type="reporter" category="lists"><comment x="0" y="0" w="209" collapsed="false">Reports a new list whose items are the same as in the input list, except that if two or more equal items appear in the input list, only the first one is kept in the result.</comment><header></header><code></code><translations>ca:elimina els duplicats de _&#xD;</translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><block s="reportAtomicKeep"><block s="reifyPredicate"><autolambda><block s="reportEquals"><block s="reportListIndex"><block var="value"/><block var="list"/></block><block var="index"/></block></autolambda><list><l>value</l><l>index</l><l>list</l></list></block><block var="data"/></block></block></script><scripts><script x="14" y="164.2222222222222"><block s="doWarp"><script><block s="doIf"><block s="reportEquals"><block var="data"/><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doIfElse"><block s="reportListContainsItem"><block s="reportCDR"><block var="data"/></block><block s="reportListItem"><l>1</l><block var="data"/></block></block><script><block s="doReport"><custom-block s="$flash remove duplicates from %l"><block s="reportCDR"><block var="data"/></block></custom-block></block></script><script><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="data"/></block><custom-block s="$flash remove duplicates from %l"><block s="reportCDR"><block var="data"/></block></custom-block></block></block></script></block></script></block></script></scripts></block-definition><block-definition s="$flash sort %&apos;data&apos; ordering with %&apos;function&apos;" type="reporter" category="lists"><comment x="0" y="0" w="161.14285714285708" collapsed="false">Reports a sorted version of the list in its first input slot, using the comparison function in the second input slot.  For a list of numbers, using &lt; as the comparison function will sort from low to high; using &gt; will sort from high to low.</comment><header></header><code></code><translations>ca:ordena _ segons criteri _&#xD;</translations><inputs><input type="%l"></input><input type="%predRing"></input></inputs><script><block s="doReport"><block s="reportApplyExtension"><l>lst_sort(list, fn)</l><list><block var="data"/><block var="function"/></list></block></block></script><scripts><script x="15" y="142.55555555555554"><block s="doDeclareVariables"><list><l>even items</l><l>odd items</l><l>merge</l><l>split</l><l>copy of data</l><l>id</l></list></block><block s="doSetVar"><l>id</l><block s="reifyScript"><script><block s="doReport"><l></l></block></script><list></list></block></block><block s="doSetVar"><l>copy of data</l><block s="reportMap"><block var="id"/><block var="data"/></block></block><block s="doSetVar"><l>split</l><block s="reifyScript"><script><block s="doSetVar"><l>even items</l><block s="reportNewList"><list></list></block></block><block s="doSetVar"><l>odd items</l><block s="reportNewList"><list></list></block></block><block s="doUntil"><block s="reportListIsEmpty"><block var="copy of data"/></block><script><block s="doAddToList"><block s="reportListItem"><l>1</l><block var="copy of data"/></block><block var="odd items"/></block><block s="doDeleteFromList"><l>1</l><block var="copy of data"/></block><block s="doIf"><block s="reportNot"><block s="reportListIsEmpty"><block var="copy of data"/></block></block><script><block s="doAddToList"><block s="reportListItem"><l>1</l><block var="copy of data"/></block><block var="even items"/></block><block s="doDeleteFromList"><l>1</l><block var="copy of data"/></block></script></block></script></block></script><list></list></block></block><block s="doSetVar"><l>merge</l><block s="reifyScript"><script><block s="doIf"><block s="reportEquals"><block var="#1"/><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block var="#2"/></block></script></block><block s="doIf"><block s="reportEquals"><block var="#2"/><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block var="#1"/></block></script></block><block s="doIfElse"><block s="evaluate"><block var="function"/><list><block s="reportListItem"><l>1</l><block var="#1"/></block><block s="reportListItem"><l>1</l><block var="#2"/></block></list></block><script><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="#1"/></block><block s="evaluate"><block var="merge"/><list><block s="reportCDR"><block var="#1"/></block><block var="#2"/></list></block></block></block></script><script><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="#2"/></block><block s="evaluate"><block var="merge"/><list><block var="#1"/><block s="reportCDR"><block var="#2"/></block></list></block></block></block></script></block></script><list><l>#1</l><l>#2</l></list></block></block><block s="doIf"><block s="reportEquals"><block var="data"/><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doIf"><block s="reportEquals"><block s="reportCDR"><block var="data"/></block><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block var="data"/></block></script></block><block s="doRun"><block var="split"/><list></list></block><block s="doReport"><block s="evaluate"><block var="merge"/><list><custom-block s="$flash sort %l ordering with %predRing"><block var="odd items"/><block var="function"/></custom-block><custom-block s="$flash sort %l ordering with %predRing"><block var="even items"/><block var="function"/></custom-block></list></block></block></script></scripts></block-definition><block-definition s="$flash assoc %&apos;key&apos; %&apos;a-list&apos;" type="reporter" category="lists"><comment x="0" y="0" w="289.3333333333333" collapsed="false">The second input is an &quot;association list,&quot; a list of two-item lists.  Each of those smaller lists has a &quot;key&quot; as its first item and a &quot;value&quot; as its second.  ASSOC reports the first key-value pair in the association list whose key matches the first input.</comment><header></header><code></code><translations>ca:associació _ _&#xD;</translations><inputs><input type="%s"></input><input type="%l"></input></inputs><script><block s="doReport"><block s="reportAtomicFindFirst"><block s="reifyPredicate"><autolambda><block s="reportEquals"><block var="key"/><block s="reportListItem"><l>1</l><l/></block></block></autolambda><list></list></block><block var="a-list"/></block></block></script><scripts><script x="19.333333333333332" y="108.22222222222221"><block s="doIf"><block s="reportEquals"><block var="a-list"/><block s="reportNewList"><list></list></block></block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doIf"><block s="reportEquals"><block var="key"/><block s="reportListItem"><l>1</l><block s="reportListItem"><l>1</l><block var="a-list"/></block></block></block><script><block s="doReport"><block s="reportListItem"><l>1</l><block var="a-list"/></block></block></script></block><block s="doReport"><custom-block s="$flash assoc %s %l"><block var="key"/><block s="reportCDR"><block var="a-list"/></block></custom-block></block></script></scripts></block-definition><block-definition s="%&apos;#&apos; for each %&apos;item&apos; of %&apos;data&apos; %&apos;action&apos;" type="command" category="lists"><comment x="0" y="0" w="228.57142857142858" collapsed="false">This block carries out the given script for each item of the given list, like the primitive FOR EACH.&#xD;&#xD;What&apos;s different is that it provides the # variable, which will contain the item number in the list of each item in turn, 1 while processing item 1, and so on.</comment><header></header><code></code><translations>ca:_ per cada _ de _ _&#xD;</translations><inputs><input type="%upvar"></input><input type="%upvar"></input><input type="%l"></input><input type="%ca"></input></inputs><script><block s="doIfElse"><custom-block s="☠︎ linked? %l"><block var="data"/></custom-block><script><block s="doSetVar"><l>#</l><l>1</l></block><block s="doUntil"><block s="reportListIsEmpty"><block var="data"/></block><script><block s="doSetVar"><l>item</l><block s="reportListItem"><l>1</l><block var="data"/></block></block><block s="doRun"><block var="action"/><list></list></block><block s="doSetVar"><l>data</l><block s="reportCDR"><block var="data"/></block></block><block s="doChangeVar"><l>#</l><l>1</l></block></script></block></script><script><block s="doIf"><block s="reportNot"><block s="reportListIsEmpty"><block var="data"/></block></block><script><block s="doFor"><l>i</l><l>1</l><block s="reportListAttribute"><l><option>length</option></l><block var="data"/></block><script><block s="doSetVar"><l>#</l><block var="i"/></block><block s="doSetVar"><l>item</l><block s="reportListItem"><block var="i"/><block var="data"/></block></block><block s="doRun"><block var="action"/><list></list></block></script></block></script></block></script></block></script></block-definition><block-definition s="☠︎ linked? %&apos;data&apos;" type="predicate" category="lists" helper="true"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><block s="reportApplyExtension"><l>lst_linked(list)</l><list><block var="data"/></list></block></block></script></block-definition><block-definition s="☠︎ link %&apos;data&apos;" type="reporter" category="lists" helper="true"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doIf"><block s="reportListIsEmpty"><block var="data"/></block><script><block s="doReport"><block var="data"/></block></script></block><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="data"/></block><block s="reportCDR"><block var="data"/></block></block></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).&#xD;&#xD;Will not work on circular lists.</comment><header></header><code></code><translations></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="reportAtomicCombine"><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="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></translations><inputs><input type="%mult%s"></input></inputs><script><block s="doReport"><block s="reportConcatenatedLists"><block s="reportAtomicMap"><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="$flash zip %&apos;lists&apos;" type="reporter" category="lists"><comment x="0" y="0" w="192" collapsed="false">ZIP takes any number of lists as inputs.  The lists should all be the same length.  ZIP reports a list of lists in which the first item is a list of all the first items, the second item is a list of all the second items, etc.&#xD;Viewing the inputs as the rows of a matrix, ZIP reports its transpose.</comment><header></header><code></code><translations></translations><inputs><input type="%mult%l"></input></inputs><script><block s="doIf"><block s="reportListIsEmpty"><block s="reportListItem"><l>1</l><block var="lists"/></block></block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doReport"><block s="reportCONS"><block s="reportAtomicMap"><block s="reifyReporter"><autolambda><block s="reportListItem"><l>1</l><l/></block></autolambda><list></list></block><block var="lists"/></block><custom-block s="$flash zip %mult%l"><block s="reportAtomicMap"><block s="reifyReporter"><autolambda><block s="reportCDR"><l/></block></autolambda><list></list></block><block var="lists"/></block></custom-block></block></block></script></block-definition><block-definition s="%&apos;x&apos;" type="reporter" category="lists"><comment x="0" y="0" w="105.33333333333333" collapsed="false">The identity function reports its input.</comment><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><block var="x"/></block></script></block-definition><block-definition s="multimap %&apos;function&apos; over %&apos;lists&apos;" type="reporter" category="lists"><comment x="0" y="0" w="267.3333333333333" collapsed="false">Takes as input a function of N inputs and N lists.&#xD;The function is called with item 1 of all the lists as its inputs, with item 2 of all the lists as its inputs, and so on.  (The lists should all be the same length.)</comment><header></header><code></code><translations></translations><inputs><input type="%repRing"></input><input type="%mult%l"></input></inputs><script><block s="doReport"><block s="reportMap"><block s="reifyReporter"><autolambda><block s="evaluate"><block var="function"/><custom-block s="%s"><l></l></custom-block></block></autolambda><list></list></block><custom-block s="$flash zip %mult%l"><block var="lists"/></custom-block></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="reportAtomicKeep"><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>whitespace</option></l></block></block></block></script></block-definition></blocks><stage width="480" height="360" costume="0" color="1,1,1,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="false" hyperops="true" codify="false" inheritance="true" sublistIDs="false" id="1203"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAAD8VJREFUeF7t3DGqJVUUhtF9TAQTMTAxNzAWTMycQUOLiQaOQGdg4ABMHICRgQ3iEFoQRHAGRgYaCk7AIw9skMaH9YpLfxSsjqvuf+9iwwcdvDX+ESBAgAABAi9cYL3wRYMECBAgQIDACLAjIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBwIMDvPd+Z2Z+mplHa63vjn7ns+8d/XzPESBAgACBKwmcCfCnM/PFiQCfeu9KmL4rAQIECBA4KnAmwE9m5vGJAJ967+gP8RwBAgQIELiSwOEA771/mJl3/+fHfbzW+urfz5x970qIvisBAgQIEHiowEMC/PnMvDUz783MazPz48z8/tzgl2utp88F+NR7D/0hnidAgAABAlcSOBzgZz9q7/3zzLx94r+gT713JUzflQABAgQIHBUQ4KNSniNAgAABAjcUEOAbYvooAgQIECBwVECAj0p5jgABAgQI3FBAgG+I6aMIECBAgMBRAQE+KuU5AgQIECBwQwEBviGmjyJAgAABAkcFzgT47u9A3/096A/WWt8cHdp7n3rv6Od7jgABAgQIXEngTIDvovv+zHw9Mx+ttf569oP33q+utf78L4C996n3roTpuxIgQIAAgaMCZwL8aGa+/Wfgt5n5dWZemZk3Zualtdbr9wT41HtHf4jnCBAgQIDAlQQeHOC7H7f3/nBmPpmZN2fm5Zn5Y2Z+mZnv11qf3Qdw9r0rgfquBAgQIEDgiMCpAB/5YM8QIECAAAEC9wsIsOsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAgIsBsgQIAAAQKBgAAH6CYJECBAgIAAuwECBAgQIBAICHCAbpIAAQIECAiwGyBAgAABAoGAAAfoJgkQIECAgAC7AQIECBAgEAgIcIBukgABAgQICLAbIECAAAECgYAAB+gmCRAgQICAALsBAgQIECAQCAhwgG6SAAECBAj8DR/7tWnf4H1VAAAAAElFTkSuQmCC</pentrails><costumes><list struct="atomic" id="1204"></list></costumes><sounds><list struct="atomic" id="1205"></list></sounds><variables></variables><blocks></blocks><scripts><script x="115" y="72.16666666666669"><block s="receiveGo"></block><block s="setBackgroundColor"><color>1,1,1,1</color></block></script></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="-232" y="133" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" hidden="true" costume="0" color="255,255,255,1" pen="tip" id="1213"><costumes><list struct="atomic" id="1214"></list></costumes><sounds><list struct="atomic" id="1215"></list></sounds><blocks></blocks><variables></variables><scripts><script x="73" y="10"><block s="receiveKey"><l><option>any key</option></l><list><l>key</l></list></block><block s="doIf"><block s="reportEquals"><block var="key"/><l>Backspace</l></block><script><block s="doSetVar"><l>keyboard_string</l><custom-block s="all but last letter of %txt"><block var="keyboard_string"/></custom-block></block></script></block><block s="doIf"><block s="reportEquals"><block var="key"/><l>Enter</l></block><script><block s="doSetVar"><l>keyboard_string</l><block s="reportJoinWords"><list><block var="keyboard_string"/><l>⸻</l></list></block></block></script></block><block s="doIf"><block s="reportEquals"><block var="key"/><l>ctrl c</l></block><script><block s="doRun"><block s="reportJSFunction"><list><l>text</l></list><l>window.clipboard.writeText(text);</l></block><list><block s="reportListItem"><l><option>last</option></l><block s="reportTextSplit"><block var="keyboard_string"/><l>⸻</l></block></block></list></block></script></block><block s="doIf"><block s="reportLessThan"><l>1</l><custom-block s="length of %s"><block var="key"/></custom-block></block><script><block s="doStopThis"><l><option>this script</option></l></block></script></block><block s="doSetVar"><l>keyboard_string</l><block s="reportJoinWords"><list><block var="keyboard_string"/><block var="key"/></list></block></block></script><script x="23" y="342.5000000000001"><block s="receiveGo"></block><block s="doSetVar"><l>keyboard_string</l><block s="reportIfElse"><block s="reportNot"><custom-block s="get value from key: %s in browser"><l>keyboard_string</l></custom-block></block><l></l><custom-block s="get value from key: %s in browser"><l>keyboard_string</l></custom-block></block></block><block s="setHeading"><l>90</l></block><block s="hide"></block><block s="setColor"><color>255,255,255,1</color></block><block s="up"></block><block s="doForever"><script><block s="clear"></block><block s="gotoXY"><l>-232</l><l>157</l></block><block s="doWarp"><script><custom-block s="%upvar for each %upvar of %l %ca"><l>#</l><l>item</l><block s="reportTextSplit"><block var="keyboard_string"/><l>⸻</l></block><script><block s="write"><block s="reportJoinWords"><list><block var="item"/><block s="reportIfElse"><block s="reportEquals"><block var="#"/><block s="reportListAttribute"><l><option>length</option></l><block s="reportTextSplit"><block var="keyboard_string"/><l>⸻</l></block></block></block><block var="underscore"/><l></l></block></list></block><l>24</l></block><block s="changeYPosition"><l>-24</l></block><block s="setXPosition"><l>-232</l></block></script></custom-block></script></block></script></block></script><script x="560" y="410.4999999999991"><block s="receiveGo"></block><block s="doForever"><script><block s="doSetVar"><l>underscore</l><l>_</l></block><block s="doWait"><l>0.25</l></block><block s="doSetVar"><l>underscore</l><l></l></block><block s="doWait"><l>0.25</l></block></script></block></script><script x="543" y="265.1666666666667"><block s="receiveInteraction"><l><option>stopped</option></l></block><custom-block s="store key: %s value: %s in browser"><l>keyboard_string</l><block var="keyboard_string"/></custom-block></script></scripts></sprite><watcher var="keyboard_string" style="normal" x="10" y="10" color="243,118,29" hidden="true"/><watcher scope="Sprite" s="xPosition" style="normal" x="10" y="31.000001999999995" color="74,108,212" hidden="true"/><watcher scope="Sprite" s="yPosition" style="normal" x="10" y="52.00000399999999" color="74,108,212" hidden="true"/><watcher var="underscore" style="normal" x="10" y="73.00000599999998" color="243,118,29" hidden="true"/></sprites></stage><variables><variable name="keyboard_string"><l>tt</l></variable><variable name="underscore"><l></l></variable></variables></scene></scenes></project><media name="Keyboard" app="Snap! 7, https://snap.berkeley.edu" version="2"></media></snapdata>