<snapdata remixID="9193364"><project name="U3L4.1 Coded Message Setup" app="Snap! 5.4, http://snap.berkeley.edu" version="1"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAESElEQVR4Xu3cz0vTcRzH8bfCQPQSCJoxNkJnu3Tw4A66QxBNbWs4KsqIVSS0ftA9jC5eIxYSdKh/ootFNRpakAZd6pYMiujH8LJUjAaLRghhm33jM16H79Pzh8+LPT8PkcBsq9VqNeOLAqICbQAUlWe2XgCAQJAWAKA0P+MAxIC0AACl+RkHIAakBQAozc84ADEgLQBAaX7GAYgBaQEASvMzDkAMSAsAUJqfcQBiQFoAgNL8jAMQA9ICAJTmZxyAGJAWAKA0P+MAxIC0AACl+RkHIAakBQAozc84ADEgLQBAaX7GAYgBaQEASvMzDkAMSAsAUJqfcQBiQFoAgNL8jAMQA9ICAJTmZxyAGJAWAKA0P+MAxIC0AACl+RkHIAakBQAozc84ABsYyOfzlsvlrKOjAyUtLADABnGXlpZsdnbWqtWqZbPZ+qmpqakWPoU/rwZgk3cvFAo2Nze3deIXxq6uLpuYmLD+/n6Lx+P+VOPwUwNwh5ipVMoCgcC2U+Vy2TKZjCWTSYtGow6fxF9XAbDJe09PT9vq6mr9xPr6uo2MjFhfX18dXTAY9JeUFn1aADYIOzMzY6VSycbGxiwSidTx8eW+AADdN+VGDwUA6CEWR90XAKD7ptzooQAAPcTiqPsCAHTflBs9FACgh1gcdV8AgO6bcqOHAgD0EIuj7gsA0H1TbvRQAIAeYnHUfQEAum/KjR4KALBBrLd3X9vGlzXrPRe2UCjkISlHvRQAYINalUrFVqLLNvApZE/bFi12edRehd9Y4sphfkvai7AdzgKwSaBisWidBzYsagN/nJrvKVr60qQ93Ltgk9mMw+fw31UA/A+Aj3YvWCqXtseRF3bkVNp/ahx+YgD+w4/gQvvzrR/B41f//hvSDt/EV1cBkH+ESMEDUJqfcQBiQFoAgNL8jAMQA9ICAJTmZxyAGJAWAKA0P+MAxIC0AACl+RkHIAakBQAozc84ABsYuHb/hr3b897GhxK2byVk8VH+FmArvl0A2KTq2QcX7XN6rX5iY+Wbxb8PW3Cz15LdhywcDrfiPXx3JwB3ePLE8nFrH97+d6LL8x/t6K6UHetO2eDgoO/guPrAAGxS8snXot3subd1olr5Yd2LnZYYOmj7P0QsFou5egff3gPABk//srRs13tuWe3Zpp0ZP22B+aqdTJ3wLZRWfXAANiibv3Pbcucv8B+QWiXv970AbHFgrm9eAIAIkRYAoDQ/4wDEgLQAAKX5GQcgBqQFACjNzzgAMSAtAEBpfsYBiAFpAQBK8zMOQAxICwBQmp9xAGJAWgCA0vyMAxAD0gIAlOZnHIAYkBYAoDQ/4wDEgLQAAKX5GQcgBqQFACjNzzgAMSAtAEBpfsYBiAFpAQBK8zMOQAxICwBQmp9xAGJAWgCA0vyMAxAD0gIAlOZnHIAYkBYAoDQ/4wDEgLQAAKX5GQcgBqQFACjNzzgAMSAt8BORd2m3K0lR3gAAAABJRU5ErkJggg==</thumbnail><stage name="Stage" width="480" height="360" costume="0" color="255,255,255,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="true" codify="false" inheritance="false" sublistIDs="false" scheduled="false" id="1"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAOhUlEQVR4Xu3VwQkAAAjEMN1/abewn7jAQRC64wgQIECAAIF3gX1fNEiAAAECBAiMAHsCAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQIHLFxAWmhEwHPAAAAAElFTkSuQmCC</pentrails><costumes><list struct="atomic" id="2"></list></costumes><sounds><list struct="atomic" id="3"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites><sprite name="Secret Message" idx="1" x="0" y="50.00000000000006" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="8"><costumes><list struct="atomic" id="9"></list></costumes><sounds><list struct="atomic" id="10"></list></sounds><blocks></blocks><variables></variables><scripts><script x="497.33333333333337" y="164"><block s="reportUnicodeAsLetter"><l>65</l></block></script><script x="29.33333333333337" y="12"><custom-block s="average total %l"><custom-block s="make under 100k %l"><block var="database"/></custom-block></custom-block></script><script x="30.33333333333337" y="46"><custom-block s="average total %l"><custom-block s="make over 100k %l"><block var="database"/></custom-block></custom-block></script><script x="22.33333333333337" y="87"><custom-block s="make over 100k %l"><block var="database"/><comment w="90" collapsed="false">searches the list for anyone who makes over 100k and list them.</comment></custom-block></script><script x="499.33333333333337" y="204"><block s="reportUnicodeAsLetter"><l>105</l></block></script><script x="19.33333333333337" y="273"><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><custom-block s="join &quot;a&quot; or &quot;an&quot; with %s"><l>an</l></custom-block></autolambda><list></list></block><list><block s="reportNewList"><list><l>elephant</l><l>lion</l><l>eel</l><l>mouse</l><l>anteater</l></list></block></list></custom-block></script><script x="314.33333333333337" y="238"><custom-block s="encoded message %s"><block var="coded message"/><comment w="90" collapsed="false">encodes the list imputed.</comment></custom-block></script><comment x="309" y="10" w="90" collapsed="false">grabs the average total for both less then and more then 100k.</comment><script x="334.33333333333337" y="202"><block s="reportUnicodeAsLetter"><l>72</l></block></script><script x="327.33333333333337" y="163"><block s="reportUnicodeAsLetter"><l>33</l></block></script><script x="291.33333333333337" y="274"><custom-block s="decode message %s"><l>JJ</l><comment w="90" collapsed="false">Place letters of encoded message into decode message to get original codded message number.</comment></custom-block></script><script x="26" y="432"><block s="doAsk"><l>would you like to join with a or an</l></block><block s="doSayFor"><custom-block s="join &quot;a&quot; or &quot;an&quot; with %s"><block s="getLastAnswer"></block></custom-block><l>5</l></block></script><script x="291" y="386"><block s="doAsk"><l>last letter of what?</l></block><block s="doSayFor"><custom-block s="last letter of %txt"><block s="getLastAnswer"></block></custom-block><l>5</l><comment w="90" collapsed="false">Only one word in imput.</comment></block></script><script x="19" y="610"><block s="doSetVar"><l>coded message</l><block s="reportNewList"><list><l>75</l><l>110</l><l>111</l><l>119</l><l>105</l><l>110</l><l>103</l><l>32</l><l>117</l><l>110</l><l>105</l><l>99</l><l>111</l><l>100</l><l>101</l><l>32</l><l>119</l><l>105</l><l>108</l><l>108</l><l>32</l><l>104</l><l>101</l><l>108</l><l>112</l><l>32</l><l>121</l><l>111</l><l>117</l><l>32</l><l>115</l><l>111</l><l>111</l><l>110</l><l>32</l><l>119</l><l>104</l><l>101</l><l>110</l><l>32</l><l>121</l><l>111</l><l>117</l><l>32</l><l>98</l><l>117</l><l>105</l><l>108</l><l>100</l><l>32</l><l>65</l><l>99</l><l>114</l><l>111</l><l>110</l><l>121</l><l>109</l><l>46</l></list></block></block></script><script x="13.333333333333371" y="179"><custom-block s="make under 100k %l"><block var="database"><comment w="90" collapsed="false">searches the list for anyone who makes less then 100k and list them.</comment></block></custom-block></script><script x="23" y="337"><custom-block s="join &quot;a&quot; or &quot;an&quot; with %s"><l></l><comment w="90" collapsed="false">when &quot;A&quot; is imputed it puts &quot;A&quot; behind (word) same with &quot;An&quot;..</comment></custom-block></script><script x="318" y="92"><custom-block s="last letter of %txt"><l>angel</l><comment w="90" collapsed="false">says the last letter of the imputed word.</comment></custom-block></script><script x="425.33333333333337" y="21"><block s="reportUnicode"><l>A</l></block></script><script x="543.3333333333334" y="25"><block s="reportUnicode"><l>z</l></block></script><script x="548.3333333333334" y="58"><block s="reportUnicode"><l>Z</l></block></script><script x="434.33333333333337" y="57"><block s="reportUnicode"><l>a</l></block></script><script x="14.333333333333371" y="509"><custom-block s="acronym %s"><l>Mrs rigs  s . really incrediblly great gall superwoman</l><comment w="90" collapsed="false">grabs the first letter of every word and creates a acronym for it.</comment></custom-block></script><comment x="116" y="528" w="90" collapsed="false">i should get bonus points for that &gt;:(.</comment></scripts></sprite><sprite name="Acronym" idx="2" x="0" y="0" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="242.25,0,218.0250000000001,1" pen="tip" id="152"><costumes><list struct="atomic" id="153"></list></costumes><sounds><list struct="atomic" id="154"></list></sounds><blocks></blocks><variables></variables><scripts><script x="20" y="20"><custom-block s="acronym %s"><l>new york city</l></custom-block></script></scripts></sprite><sprite name="Take It Further" idx="3" x="0" y="-50" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="71,255,92,1" pen="tip" id="160"><costumes><list struct="atomic" id="161"></list></costumes><sounds><list struct="atomic" id="162"></list></sounds><blocks></blocks><variables></variables><scripts><script x="10" y="10"><block s="doSetVar"><l>database</l><block s="reportNewList"><list><block s="reportNewList"><list><l>Ben Bitdiddle</l><l>computer wizard</l><l>60000</l></list></block><block s="reportNewList"><list><l>Alyssa P Hacker</l><l>computer programmer</l><l>40000</l></list></block><block s="reportNewList"><list><l>Cy D Fect</l><l>computer programmer</l><l>35000</l></list></block><block s="reportNewList"><list><l>Lem E Tweakit</l><l>computer technician</l><l>25000</l></list></block><block s="reportNewList"><list><l>Louis Reasoner</l><l>computer programmer trainee</l><l>30000</l></list></block><block s="reportNewList"><list><l>Oliver Warbucks</l><l>big wheel</l><l>650000</l></list></block><block s="reportNewList"><list><l>Eben Scrooge</l><l>chief accountant</l><l>75000</l></list></block><block s="reportNewList"><list><l>Robert Cratchet</l><l>accounting scrivener</l><l>18000</l></list></block><block s="reportNewList"><list><l>Aull DeWitt</l><l>secretary</l><l>25000</l></list></block></list></block></block></script><script x="15" y="385"><custom-block s="average total %l"><custom-block s="make under 100k %l"><block var="database"/></custom-block></custom-block></script><script x="17" y="442"><custom-block s="average total %l"><custom-block s="make over 100k %l"><block var="database"/></custom-block></custom-block></script><script x="13.176758812499997" y="328.000002"><custom-block s="make under 100k %l"><block var="database"/></custom-block></script><script x="15" y="288"><custom-block s="make over 100k %l"><block var="database"/></custom-block></script></scripts></sprite><watcher var="coded message" style="normal" x="4.1666666666667425" y="4.166666666666664" color="243,118,29" hidden="true"/><watcher var="database" style="normal" x="10" y="10" color="243,118,29" hidden="true"/></sprites></stage><hidden></hidden><headers></headers><code></code><blocks><block-definition s="map %&apos;function&apos; over %&apos;lists&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%repRing"></input><input type="%mult%l"></input></inputs><script><block s="doWarp"><script><block s="doDeclareVariables"><list><l>mapone</l><l>mapmany</l></list></block><block s="doSetVar"><l>mapone</l><block s="reifyScript"><script><block s="doIf"><custom-block s="empty? %l"><block var="data"/></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doReport"><block s="reportCONS"><block s="evaluate"><block var="function"/><list><block s="reportListItem"><l>1</l><block var="data"/></block></list></block><block s="evaluate"><block var="mapone"/><list><block s="reportCDR"><block var="data"/></block></list></block></block></block></script><list><l>data</l></list></block></block><block s="doSetVar"><l>mapmany</l><block s="reifyScript"><script><block s="doIf"><custom-block s="empty? %l"><block s="reportListItem"><l>1</l><block var="data lists"/></block></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doReport"><block s="reportCONS"><block s="evaluate"><block var="function"/><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportListItem"><l>1</l><l/></block></autolambda><list></list></block><list><block var="data lists"/></list></custom-block></block><block s="evaluate"><block var="mapmany"/><list><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportCDR"><l/></block></autolambda><list></list></block><list><block var="data lists"/></list></custom-block></list></block></block></block></script><list><l>data lists</l></list></block></block><block s="doIfElse"><custom-block s="empty? %l"><block s="reportCDR"><block var="lists"/></block></custom-block><script><block s="doReport"><block s="evaluate"><block var="mapone"/><list><block s="reportListItem"><l>1</l><block var="lists"/></block></list></block></block></script><script><block s="doReport"><block s="evaluate"><block var="mapmany"/><list><block var="lists"/></list></block></block></script></block></script></block></script></block-definition><block-definition s="empty? %&apos;data&apos;" type="predicate" category="lists"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><block s="reportEquals"><block var="data"/><block s="reportNewList"><list></list></block></block></block></script></block-definition><block-definition s="keep items such that %&apos;pred&apos; from %&apos;data&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%predRing"></input><input type="%l"></input></inputs><script><block s="doWarp"><script><block s="doIf"><custom-block s="empty? %l"><block var="data"/></custom-block><script><block s="doReport"><block s="reportNewList"><list></list></block></block></script></block><block s="doIfElse"><block s="evaluate"><block var="pred"/><list><block s="reportListItem"><l>1</l><block var="data"/></block></list></block><script><block s="doReport"><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="data"/></block><custom-block s="keep items such that %predRing from %l"><block var="pred"/><block s="reportCDR"><block var="data"/></block></custom-block></block></block></script><script><block s="doReport"><custom-block s="keep items such that %predRing from %l"><block var="pred"/><block s="reportCDR"><block var="data"/></block></custom-block></block></script></block></script></block></script></block-definition><block-definition s="combine with %&apos;function&apos; items of %&apos;data&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%repRing"></input><input type="%l"></input></inputs><script><block s="doWarp"><script><block s="doIf"><custom-block s="empty? %l"><block s="reportCDR"><block var="data"/></block></custom-block><script><block s="doReport"><block s="reportListItem"><l>1</l><block var="data"/></block></block></script></block><block s="doReport"><block s="evaluate"><block var="function"/><list><block s="reportListItem"><l>1</l><block var="data"/></block><custom-block s="combine with %repRing items of %l"><block var="function"/><block s="reportCDR"><block var="data"/></block></custom-block></list></block></block></script></block></script></block-definition><block-definition s="if %&apos;test&apos; then %&apos;true&apos; else %&apos;false&apos;" type="reporter" category="control"><header></header><code></code><translations></translations><inputs><input type="%b"></input><input type="%anyUE"></input><input type="%anyUE"></input></inputs><script><block s="doIfElse"><block var="test"/><script><block s="doReport"><block s="evaluate"><block var="true"/><list></list></block></block></script><script><block s="doReport"><block s="evaluate"><block var="false"/><list></list></block></block></script></block></script></block-definition><block-definition s="for %&apos;i&apos; = %&apos;start&apos; to %&apos;end&apos; %&apos;action&apos;" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%upvar"></input><input type="%n">1</input><input type="%n">10</input><input type="%cs"></input></inputs><script><block s="doDeclareVariables"><list><l>step</l><l>tester</l></list></block><block s="doIfElse"><block s="reportGreaterThan"><block var="start"/><block var="end"/></block><script><block s="doSetVar"><l>step</l><l>-1</l></block><block s="doSetVar"><l>tester</l><block s="reifyReporter"><autolambda><block s="reportLessThan"><block var="i"/><block var="end"/></block></autolambda><list></list></block></block></script><script><block s="doSetVar"><l>step</l><l>1</l></block><block s="doSetVar"><l>tester</l><block s="reifyReporter"><autolambda><block s="reportGreaterThan"><block var="i"/><block var="end"/></block></autolambda><list></list></block></block></script></block><block s="doSetVar"><l>i</l><block var="start"/></block><block s="doUntil"><block s="evaluate"><block var="tester"/><list></list></block><script><block s="doRun"><block var="action"/><list></list></block><block s="doChangeVar"><l>i</l><block var="step"/></block></script></block></script></block-definition><block-definition s="join words %&apos;words&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%mult%txt"></input></inputs><script><block s="doWarp"><script><block s="doIf"><custom-block s="empty? %l"><block s="reportCDR"><block var="words"/></block></custom-block><script><block s="doReport"><block s="reportListItem"><l>1</l><block var="words"/></block></block></script></block><block s="doReport"><block s="reportJoinWords"><list><block s="reportListItem"><l>1</l><block var="words"/></block><block s="reportJoinWords"><list><l> </l><block s="evaluate"><block s="reifyReporter"><autolambda><custom-block s="join words %mult%txt"><block s="reportCDR"><block var="words"/></block></custom-block></autolambda><list></list></block><list></list></block></list></block></list></block></block></script></block></script></block-definition><block-definition s="list $arrowRight sentence %&apos;data&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doWarp"><script><block s="doReport"><custom-block s="combine with %repRing items of %l"><block s="reifyReporter"><autolambda><custom-block s="join words %mult%txt"><list><l></l><l></l></list></custom-block></autolambda><list></list></block><block var="data"/></custom-block></block></script></block></script></block-definition><block-definition s="sentence $arrowRight list %&apos;text&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%txt"></input></inputs><script><block s="doWarp"><script><block s="doReport"><block s="reportTextSplit"><block var="text"/><l><option>whitespace</option></l></block></block></script></block></script></block-definition><block-definition s="catch %&apos;tag&apos; %&apos;action&apos;" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%upvar"></input><input type="%cs"></input></inputs><script><block s="doCallCC"><block s="reifyScript"><script><block s="doSetVar"><l>tag</l><block var="cont"/></block><block s="doRun"><block var="action"/><list></list></block></script><list><l>cont</l></list></block></block></script></block-definition><block-definition s="throw %&apos;cont&apos;" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%s">catchtag</input></inputs><script><block s="doRun"><block var="cont"/><list></list></block></script></block-definition><block-definition s="catch %&apos;tag&apos; %&apos;value&apos;" type="reporter" category="control"><header></header><code></code><translations></translations><inputs><input type="%upvar"></input><input type="%anyUE"></input></inputs><script><block s="doCallCC"><block s="reifyScript"><script><block s="doSetVar"><l>tag</l><block var="cont"/></block><block s="doReport"><block s="evaluate"><block var="value"/><list></list></block></block></script><list><l>cont</l></list></block></block></script></block-definition><block-definition s="throw %&apos;tag&apos; %&apos;value&apos;" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%s">catchtag</input><input type="%s"></input></inputs><script><block s="doRun"><block var="tag"/><list><block var="value"/></list></block></script></block-definition><block-definition s="for each %&apos;item&apos; of %&apos;data&apos; %&apos;action&apos;" type="command" category="lists"><header></header><code></code><translations></translations><inputs><input type="%upvar"></input><input type="%l"></input><input type="%cs"></input></inputs><script><block s="doUntil"><custom-block s="empty? %l"><block var="data"/></custom-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><block s="reportListItem"><l>1</l><block var="data"/></block></list></block><block s="doSetVar"><l>data</l><block s="reportCDR"><block var="data"/></block></block></script></block></script></block-definition><block-definition s="if %&apos;test&apos; do %&apos;action&apos; and pause all $pause-1-255-220-0" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%boolUE"></input><input type="%cs"></input></inputs><script><block s="doDeclareVariables"><list><l>breakpoint</l></list></block><block s="doIf"><block s="evaluate"><block var="test"/><list></list></block><script><block s="doSetVar"><l>breakpoint</l><block var="test"/></block><block s="doShowVar"><l>breakpoint</l></block><block s="doRun"><block var="action"/><list></list></block><block s="doPauseAll"></block><block s="doHideVar"><l></l></block></script></block></script></block-definition><block-definition s="word $arrowRight list %&apos;word&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%txt"></input></inputs><script><block s="doWarp"><script><block s="doReport"><block s="reportTextSplit"><block var="word"/><l><option>letter</option></l></block></block></script></block></script></block-definition><block-definition s="ignore %&apos;x&apos;" type="command" category="control"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs></block-definition><block-definition s="acronym %&apos;acronym&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doDeclareVariables"><list><l>a</l></list></block><block s="doSetVar"><l>a</l><block s="reportNewList"><list></list></block></block><block s="doForEach"><l>item</l><block s="reportTextSplit"><block var="acronym"/><l> </l></block><script><block s="doAddToList"><block s="reportLetter"><l>1</l><block var="item"/></block><block var="a"/></block></script></block><block s="doReport"><custom-block s="combine with %repRing items of %l"><block s="reifyReporter"><autolambda><block s="reportJoinWords"><list><l></l><l></l></list></block></autolambda><list></list></block><block var="a"/></custom-block></block></script></block-definition><block-definition s="join &quot;a&quot; or &quot;an&quot; with %&apos;word&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doIfElse"><block s="reportEquals"><block var="word"/><l>a</l></block><script><block s="doReport"><block s="reportJoinWords"><list><l>a</l><l> </l><block s="reportListItem"><l><option>any</option></l><block s="reportNewList"><list><l>elephant</l><l>lion</l><l>eel</l><l>mouse</l><l>anteater</l></list></block></block></list></block></block></script><script><block s="doIf"><block s="reportEquals"><block var="word"/><l>an</l></block><script><block s="doReport"><block s="reportJoinWords"><list><l>an</l><l> </l><block s="reportListItem"><l><option>any</option></l><block s="reportNewList"><list><l>elephant</l><l>dog</l><l>lion</l><l>cat</l><l>eel</l><l>tiger</l><l>mouse</l><l>turtle</l><l>anteater</l></list></block></block></list></block></block></script></block></script></block><block s="doSayFor"><l>only a or an to join the word please</l><l>4</l></block></script></block-definition><block-definition s="last letter of %&apos;word&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%txt"></input></inputs><script><block s="doDeclareVariables"><list><l>a</l></list></block><block s="doSetVar"><l>a</l><block s="reportNewList"><list></list></block></block><block s="doForEach"><l>item</l><block s="reportTextSplit"><block var="word"/><l> </l></block><script><block s="doAddToList"><block s="reportLetter"><l><option>last</option></l><block var="word"/></block><block var="a"/></block></script></block><block s="doReport"><custom-block s="combine with %repRing items of %l"><block s="reifyReporter"><autolambda><block s="reportJoinWords"><list><l></l><l></l></list></block></autolambda><list></list></block><block var="a"/></custom-block></block></script></block-definition><block-definition s="encoded message %&apos;message&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportJoinWords"><list><l></l><l></l></list></block></autolambda><list></list></block><list><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportUnicodeAsLetter"><block s="reportDifference"><l></l><l>1</l></block></block></autolambda><list></list></block><list><block var="message"/></list></custom-block></list></custom-block></block></script></block-definition><block-definition s="decode message %&apos;message&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportSum"><block s="reportUnicode"><l></l></block><l>1</l></block></autolambda><list></list></block><list><block s="reportTextSplit"><block var="message"/><l></l></block></list></custom-block></block></script></block-definition><block-definition s="make over 100k %&apos;list&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doDeclareVariables"><list><l>a</l><l>b</l></list></block><block s="doSetVar"><l>a</l><custom-block s="keep items such that %predRing from %l"><block s="reifyPredicate"><autolambda><block s="reportGreaterThan"><block s="reportListItem"><l>3</l><l/></block><l>100000</l></block></autolambda><list></list></block><block var="list"/></custom-block></block><block s="doSetVar"><l>b</l><block s="reportNewList"><list><custom-block s="combine with %repRing items of %l"><block s="reifyReporter"><autolambda><block s="reportSum"><l></l><l></l></block></autolambda><list></list></block><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportListItem"><l>3</l><l/></block></autolambda><list></list></block><list><block var="a"/></list></custom-block></custom-block></list></block></block><custom-block s="for each %upvar of %l %cs"><l>item</l><block var="a"/><script><block s="doAddToList"><block s="reportListItem"><l>1</l><block var="item"/></block><block var="b"/></block></script></custom-block><block s="doReport"><block var="b"/></block></script></block-definition><block-definition s="make under 100k %&apos;list&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doDeclareVariables"><list><l>a</l><l>b</l></list></block><block s="doSetVar"><l>a</l><custom-block s="keep items such that %predRing from %l"><block s="reifyPredicate"><autolambda><block s="reportLessThan"><block s="reportListItem"><l>3</l><l/></block><l>100000</l></block></autolambda><list></list></block><block var="list"/></custom-block></block><block s="doSetVar"><l>b</l><block s="reportNewList"><list><custom-block s="combine with %repRing items of %l"><block s="reifyReporter"><autolambda><block s="reportSum"><l></l><l></l></block></autolambda><list></list></block><custom-block s="map %repRing over %mult%l"><block s="reifyReporter"><autolambda><block s="reportListItem"><l>3</l><l/></block></autolambda><list></list></block><list><block var="a"/></list></custom-block></custom-block></list></block></block><custom-block s="for each %upvar of %l %cs"><l>item</l><block var="a"/><script><block s="doAddToList"><block s="reportListItem"><l>1</l><block var="item"/></block><block var="b"/></block></script></custom-block><block s="doReport"><block var="b"/></block></script></block-definition><block-definition s="average total %&apos;list&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doReport"><block s="reportQuotient"><block s="reportListItem"><l>1</l><block var="list"/></block><block s="reportDifference"><block s="reportListLength"><block var="list"/></block><l>1</l></block></block></block></script></block-definition></blocks><variables><variable name="coded message"><list struct="atomic" id="1108">75,110,111,119,105,110,103,32,117,110,105,99,111,100,101,32,119,105,108,108,32,104,101,108,112,32,121,111,117,32,115,111,111,110,32,119,104,101,110,32,121,111,117,32,98,117,105,108,100,32,65,99,114,111,110,121,109,46</list></variable><variable name="database"><list id="1109"><item><list struct="atomic" id="1110">Ben Bitdiddle,computer wizard,60000</list></item><item><list struct="atomic" id="1111">Alyssa P Hacker,computer programmer,40000</list></item><item><list struct="atomic" id="1112">Cy D Fect,computer programmer,35000</list></item><item><list struct="atomic" id="1113">Lem E Tweakit,computer technician,25000</list></item><item><list struct="atomic" id="1114">Louis Reasoner,computer programmer trainee,30000</list></item><item><list struct="atomic" id="1115">Oliver Warbucks,big wheel,650000</list></item><item><list struct="atomic" id="1116">Eben Scrooge,chief accountant,75000</list></item><item><list struct="atomic" id="1117">Robert Cratchet,accounting scrivener,18000</list></item><item><list struct="atomic" id="1118">Aull DeWitt,secretary,25000</list></item></list></variable></variables></project><media name="U3L4.1 Coded Message Setup" app="Snap! 5.4, http://snap.berkeley.edu" version="1"></media></snapdata>