1 #reader(lib"read.ss""wxme")WXME0108 ## 
2 #|
3    This file is in plt scheme editor format.
4    Open this file in dr-scheme version 4.2 or later to read it.
5 
6    Most likely, it was created by saving a program in DrScheme,
7    and it probably contains a program with non-text elements
8    (such as images or comment boxes).
9 
10             http://www.plt-scheme.org
11 |#
12  29 7 #"wxtext\0"
13 3 1 6 #"wxtab\0"
14 1 1 8 #"wxmedia\0"
15 4 1 8 #"wximage\0"
16 2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
17 1 0 16 #"drscheme:number\0"
18 3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
19 1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
20 1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
21 0 0 19 #"drscheme:sexp-snip\0"
22 0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
23 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
24 0 0 29 #"drscheme:bindings-snipclass%\0"
25 1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
26 1 0 22 #"drscheme:lambda-snip%\0"
27 1 0 56
28 #"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
29 1 0 18 #"java-comment-box%\0"
30 1 0 23 #"java-interactions-box%\0"
31 1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
32 1 0 26 #"drscheme:pict-value-snip%\0"
33 0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
34 2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
35 1 0 18 #"drscheme:xml-snip\0"
36 1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
37 1 0 21 #"drscheme:scheme-snip\0"
38 2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
39 1 0 10 #"text-box%\0"
40 1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
41 1 0 15 #"test-case-box%\0"
42 2 0 1 6 #"wxloc\0"
43           0 0 73 0 1 #"\0"
44 0 75 1 #"\0"
45 0 10 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
46 #"Standard\0"
47 0 75 12 #"Courier New\0"
48 0 18 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
49 #"\0"
50 0 -1 1 #"\0"
51 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
52 #"framework:default-color\0"
53 0 -1 1 #"\0"
54 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
55 #"\0"
56 0 -1 1 #"\0"
57 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
58 #"text:ports out\0"
59 0 -1 1 #"\0"
60 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 150 0 150 0
61 0 0 -1 -1 2 1 #"\0"
62 0 -1 1 #"\0"
63 1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
64 -1 2 15 #"text:ports err\0"
65 0 -1 1 #"\0"
66 1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0
67 0 -1 -1 2 1 #"\0"
68 0 -1 1 #"\0"
69 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
70 #"text:ports value\0"
71 0 -1 1 #"\0"
72 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 175 0 0
73 0 -1 -1 2 1 #"\0"
74 0 -1 1 #"\0"
75 1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
76 -1 2 27 #"Matching Parenthesis Style\0"
77 0 -1 1 #"\0"
78 1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
79 -1 2 1 #"\0"
80 0 -1 1 #"\0"
81 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 38 38 128 0
82 0 0 -1 -1 2 37 #"framework:syntax-color:scheme:symbol\0"
83 0 -1 1 #"\0"
84 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 38 38 128 0
85 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0"
86 0 -1 1 #"\0"
87 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 38 38 128 0
88 0 0 -1 -1 2 1 #"\0"
89 0 -1 1 #"\0"
90 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 194 116 31 0
91 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:comment\0"
92 0 -1 1 #"\0"
93 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 194 116 31 0
94 0 0 -1 -1 2 1 #"\0"
95 0 -1 1 #"\0"
96 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 41 128 38 0
97 0 0 -1 -1 2 37 #"framework:syntax-color:scheme:string\0"
98 0 -1 1 #"\0"
99 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 41 128 38 0
100 0 0 -1 -1 2 39 #"framework:syntax-color:scheme:constant\0"
101 0 -1 1 #"\0"
102 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 41 128 38 0
103 0 0 -1 -1 2 1 #"\0"
104 0 -1 1 #"\0"
105 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 132 60 36 0
106 0 0 -1 -1 2 42 #"framework:syntax-color:scheme:parenthesis\0"
107 0 -1 1 #"\0"
108 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 132 60 36 0
109 0 0 -1 -1 2 1 #"\0"
110 0 -1 1 #"\0"
111 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0
112 0 -1 -1 2 36 #"framework:syntax-color:scheme:error\0"
113 0 -1 1 #"\0"
114 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0
115 0 -1 -1 2 1 #"\0"
116 0 -1 1 #"\0"
117 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
118 -1 -1 2 36 #"framework:syntax-color:scheme:other\0"
119 0 -1 1 #"\0"
120 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
121 -1 -1 2 1 #"\0"
122 0 -1 1 #"\0"
123 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 81 112 203 0
124 0 0 -1 -1 2 38 #"drscheme:check-syntax:lexically-bound\0"
125 0 -1 1 #"\0"
126 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 81 112 203 0
127 0 0 -1 -1 2 1 #"\0"
128 0 -1 1 #"\0"
129 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 68 0 203 0 0
130 0 -1 -1 2 31 #"drscheme:check-syntax:imported\0"
131 0 -1 1 #"\0"
132 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 68 0 203 0 0
133 0 -1 -1 2 41 #"profj:syntax-colors:scheme:block-comment\0"
134 0 -1 1 #"\0"
135 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 194 116 31 0
136 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:keyword\0"
137 0 -1 1 #"\0"
138 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
139 -1 -1 2 1 #"\0"
140 0 -1 1 #"\0"
141 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
142 0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:prim-type\0"
143 0 -1 1 #"\0"
144 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
145 0 0 -1 -1 2 38 #"profj:syntax-colors:scheme:identifier\0"
146 0 -1 1 #"\0"
147 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 38 38 128 0
148 0 0 -1 -1 2 1 #"\0"
149 0 -1 1 #"\0"
150 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
151 0 0 -1 -1 2 34 #"profj:syntax-colors:scheme:string\0"
152 0 -1 1 #"\0"
153 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
154 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:literal\0"
155 0 -1 1 #"\0"
156 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
157 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:comment\0"
158 0 -1 1 #"\0"
159 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 194 116 31 0
160 0 0 -1 -1 2 33 #"profj:syntax-colors:scheme:error\0"
161 0 -1 1 #"\0"
162 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0
163 0 -1 -1 2 35 #"profj:syntax-colors:scheme:default\0"
164 0 -1 1 #"\0"
165 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
166 -1 -1 2 37 #"profj:syntax-colors:scheme:uncovered\0"
167 0 -1 1 #"\0"
168 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
169 -1 -1 2 35 #"profj:syntax-colors:scheme:covered\0"
170 0 -1 1 #"\0"
171 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
172 0 0 -1 -1 4 1 #"\0"
173 0 70 1 #"\0"
174 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
175 -1 -1 4 4 #"XML\0"
176 0 70 1 #"\0"
177 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
178 -1 -1 8 1 #"\0"
179 0 -1 1 #"\0"
180 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 8 24
181 #"drscheme:text:ports err\0"
182 0 -1 1 #"\0"
183 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 4 1
184 #"\0"
185 0 71 1 #"\0"
186 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
187 -1 -1 4 1 #"\0"
188 0 -1 1 #"\0"
189 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
190 -1 4 1 #"\0"
191 0 71 1 #"\0"
192 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
193 -1 4 1 #"\0"
194 0 71 1 #"\0"
195 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
196 -1 2 1 #"\0"
197 0 71 1 #"\0"
198 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
199 -1 -1 2 1 #"\0"
200 0 71 1 #"\0"
201 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
202 -1 0 1 #"\0"
203 0 75 12 #"Courier New\0"
204 0.0 18 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
205 255 255 1 -1 22 1 #"\0"
206 0 -1 1 #"\0"
207 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 15 1
208 #"\0"
209 0 -1 1 #"\0"
210 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 4 1
211 #"\0"
212 0 -1 1 #"\0"
213 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 14 1
214 #"\0"
215 0 -1 1 #"\0"
216 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 20 1
217 #"\0"
218 0 -1 1 #"\0"
219 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 17 1
220 #"\0"
221 0 -1 1 #"\0"
222 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 22 1
223 #"\0"
224 0 -1 1 #"\0"
225 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 15 1
226 #"\0"
227 0 -1 1 #"\0"
228 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
229 #"\0"
230 0 -1 1 #"\0"
231 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 14 1
232 #"\0"
233 0 -1 1 #"\0"
234 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 20 1
235 #"\0"
236 0 -1 1 #"\0"
237 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
238 #"\0"
239 0 -1 1 #"\0"
240 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
241 17 1 #"\0"
242 0 -1 1 #"\0"
243 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
244 22 1 #"\0"
245 0 -1 1 #"\0"
246 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
247 15 1 #"\0"
248 0 -1 1 #"\0"
249 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
250 14 1 #"\0"
251 0 -1 1 #"\0"
252 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
253 20 1 #"\0"
254 0 -1 1 #"\0"
255 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
256 17 1 #"\0"
257 0 -1 1 #"\0"
258 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1
259           0 1160 0 17 3 85
260 (
261  #";; The first three lines of this file were inserted by DrScheme. The"
262  #"y record metadata"
263 ) 0 0 66 29 1 #"\n"
264 0 0 17 3 85
265 (
266  #";; about the language level of this file in a form that our tools ca"
267  #"n easily process."
268 ) 0 0 66 29 1 #"\n"
269 0 0 24 3 7 #"#reader"
270 0 0 22 3 1 #"("
271 0 0 14 3 3 #"lib"
272 0 0 66 3 1 #" "
273 0 0 19 3 25 #"\"htdp-beginner-reader.ss\""
274 0 0 66 3 1 #" "
275 0 0 19 3 6 #"\"lang\""
276 0 0 22 3 3 #")(("
277 0 0 14 3 7 #"modname"
278 0 0 66 3 1 #" "
279 0 0 14 3 6 #"10.3.1"
280 0 0 22 3 1 #")"
281 0 0 66 3 1 #" "
282 0 0 22 3 1 #"("
283 0 0 14 3 19 #"read-case-sensitive"
284 0 0 66 3 1 #" "
285 0 0 20 3 2 #"#t"
286 0 0 22 3 1 #")"
287 0 0 66 3 1 #" "
288 0 0 22 3 1 #"("
289 0 0 14 3 10 #"teachpacks"
290 0 0 66 3 1 #" "
291 0 0 22 3 3 #"())"
292 0 0 66 3 1 #" "
293 0 0 22 3 1 #"("
294 0 0 14 3 13 #"htdp-settings"
295 0 0 66 3 1 #" "
296 0 0 22 3 2 #"#("
297 0 0 20 3 2 #"#t"
298 0 0 66 3 1 #" "
299 0 0 14 3 11 #"constructor"
300 0 0 66 3 1 #" "
301 0 0 14 3 17 #"repeating-decimal"
302 0 0 66 3 1 #" "
303 0 0 20 3 2 #"#f"
304 0 0 66 3 1 #" "
305 0 0 20 3 2 #"#t"
306 0 0 66 3 1 #" "
307 0 0 14 3 4 #"none"
308 0 0 66 3 1 #" "
309 0 0 20 3 2 #"#f"
310 0 0 66 3 1 #" "
311 0 0 22 3 5 #"())))"
312 0 0 66 29 1 #"\n"
313 0 0 17 3 16 #";Data Definition"
314 0 0 66 29 1 #"\n"
315 0 0 17 3 40 #";An ir (inventory record) is a structure"
316 0 0 66 29 1 #"\n"
317 0 0 17 3 52 #";(make-ir s n i) where s is a symbol, n is a number,"
318 0 0 66 29 1 #"\n"
319 0 0 17 3 19 #";and i is an image."
320 0 0 66 29 1 #"\n"
321 0 0 66 29 1 #"\n"
322 0 0 22 3 1 #"("
323 0 0 15 3 13 #"define-struct"
324 0 0 66 3 1 #" "
325 0 0 14 3 2 #"ir"
326 0 0 66 3 1 #" "
327 0 0 22 3 1 #"("
328 0 0 14 3 4 #"name"
329 0 0 66 3 1 #" "
330 0 0 14 3 5 #"price"
331 0 0 66 3 1 #" "
332 0 0 14 3 5 #"image"
333 0 0 22 3 2 #"))"
334 0 0 66 29 1 #"\n"
335 0 0 66 29 1 #"\n"
336 0 0 17 3 16 #";Data definition"
337 0 0 66 29 1 #"\n"
338 0 0 17 3 23 #";An inventory is either"
339 0 0 66 29 1 #"\n"
340 0 0 17 3 20 #";1. an empty list or"
341 0 0 66 29 1 #"\n"
342 0 0 17 3 61
343 #";2. (cons ir inv) where ir is an inventory record (structure)"
344 0 0 66 29 1 #"\n"
345 0 0 17 3 25 #";and inv is an inventory."
346 0 0 66 29 1 #"\n"
347 0 0 66 3 9 #"         "
348 0 0 66 29 1 #"\n"
349 0 0 17 3 26 #";Contract, Purpose, Header"
350 0 0 66 29 1 #"\n"
351 0 0 17 3 38 #";contains-doll? : inventory -> boolean"
352 0 0 66 29 1 #"\n"
353 0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
354 0 0 66 29 1 #"\n"
355 0 0 17 3 42 #";it contains 'doll.  Return true or false."
356 0 0 66 29 1 #"\n"
357 0 0 17 3 1 #";"
358 0 0 66 29 1 #"\n"
359 0 0 17 3 9 #";Template"
360 0 0 66 29 1 #"\n"
361 0 0 17 3 1 #";"
362 0 0 66 29 1 #"\n"
363 0 0 17 3 32 #";(define (contains-doll? an-inv)"
364 0 0 66 29 1 #"\n"
365 0 0 17 3 8 #";  (cond"
366 0 0 66 29 1 #"\n"
367 0 0 17 3 13 #";    [() ...]"
368 0 0 66 29 1 #"\n"
369 0 0 17 3 57 #";    [() (first an-inv) (contains-doll? (rest an-inv))]))"
370 0 0 66 29 1 #"\n"
371 0 0 66 29 1 #"\n"
372 0 0 22 3 1 #"("
373 0 0 15 3 6 #"define"
374 0 0 66 3 1 #" "
375 0 0 22 3 1 #"("
376 0 0 14 3 14 #"contains-doll?"
377 0 0 66 3 1 #" "
378 0 0 14 3 6 #"an-inv"
379 0 0 22 3 1 #")"
380 0 0 66 29 1 #"\n"
381 0 0 66 3 2 #"  "
382 0 0 22 3 1 #"("
383 0 0 15 3 4 #"cond"
384 0 0 66 29 1 #"\n"
385 0 0 66 3 4 #"    "
386 0 0 22 3 2 #"[("
387 0 0 14 3 6 #"empty?"
388 0 0 66 3 1 #" "
389 0 0 14 3 6 #"an-inv"
390 0 0 22 3 1 #")"
391 0 0 66 3 1 #" "
392 0 0 14 3 5 #"false"
393 0 0 22 3 1 #"]"
394 0 0 66 29 1 #"\n"
395 0 0 66 3 4 #"    "
396 0 0 22 3 2 #"[("
397 0 0 14 3 8 #"symbol=?"
398 0 0 66 3 1 #" "
399 0 0 22 3 1 #"("
400 0 0 14 3 7 #"ir-name"
401 0 0 66 3 1 #" "
402 0 0 22 3 1 #"("
403 0 0 14 3 5 #"first"
404 0 0 66 3 1 #" "
405 0 0 14 3 6 #"an-inv"
406 0 0 22 3 2 #"))"
407 0 0 66 3 1 #" "
408 0 0 20 3 1 #"'"
409 0 0 14 3 4 #"doll"
410 0 0 22 3 1 #")"
411 0 0 66 3 1 #" "
412 0 0 14 3 4 #"true"
413 0 0 22 3 1 #"]"
414 0 0 66 29 1 #"\n"
415 0 0 66 3 4 #"    "
416 0 0 22 3 1 #"["
417 0 0 14 3 4 #"else"
418 0 0 66 3 1 #" "
419 0 0 22 3 1 #"("
420 0 0 14 3 14 #"contains-doll?"
421 0 0 66 3 1 #" "
422 0 0 22 3 1 #"("
423 0 0 14 3 4 #"rest"
424 0 0 66 3 1 #" "
425 0 0 14 3 6 #"an-inv"
426 0 0 22 3 5 #"))]))"
427 0 0 66 29 1 #"\n"
428 0 0 66 29 1 #"\n"
429 0 0 66 29 1 #"\n"
430 0 0 17 3 26 #";Contract, Purpose, Header"
431 0 0 66 29 1 #"\n"
432 0 0 17 3 40 #";contains? : inventory symbol -> boolean"
433 0 0 66 29 1 #"\n"
434 0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
435 0 0 66 29 1 #"\n"
436 0 0 17 3 44 #";it contains keyword.  Return true or false."
437 0 0 66 29 1 #"\n"
438 0 0 66 29 1 #"\n"
439 0 0 22 3 1 #"("
440 0 0 15 3 6 #"define"
441 0 0 66 3 1 #" "
442 0 0 22 3 1 #"("
443 0 0 14 3 9 #"contains?"
444 0 0 66 3 1 #" "
445 0 0 14 3 6 #"an-inv"
446 0 0 66 3 1 #" "
447 0 0 14 3 7 #"keyword"
448 0 0 22 3 1 #")"
449 0 0 66 29 1 #"\n"
450 0 0 66 3 2 #"  "
451 0 0 22 3 1 #"("
452 0 0 15 3 4 #"cond"
453 0 0 66 29 1 #"\n"
454 0 0 66 3 4 #"    "
455 0 0 22 3 2 #"[("
456 0 0 14 3 6 #"empty?"
457 0 0 66 3 1 #" "
458 0 0 14 3 6 #"an-inv"
459 0 0 22 3 1 #")"
460 0 0 66 3 1 #" "
461 0 0 14 3 5 #"false"
462 0 0 22 3 1 #"]"
463 0 0 66 29 1 #"\n"
464 0 0 66 3 4 #"    "
465 0 0 22 3 2 #"[("
466 0 0 14 3 8 #"symbol=?"
467 0 0 66 3 1 #" "
468 0 0 22 3 1 #"("
469 0 0 14 3 7 #"ir-name"
470 0 0 66 3 1 #" "
471 0 0 22 3 1 #"("
472 0 0 14 3 5 #"first"
473 0 0 66 3 1 #" "
474 0 0 14 3 6 #"an-inv"
475 0 0 22 3 2 #"))"
476 0 0 66 3 1 #" "
477 0 0 14 3 7 #"keyword"
478 0 0 22 3 1 #")"
479 0 0 66 3 1 #" "
480 0 0 14 3 4 #"true"
481 0 0 22 3 1 #"]"
482 0 0 66 29 1 #"\n"
483 0 0 66 3 4 #"    "
484 0 0 22 3 1 #"["
485 0 0 14 3 4 #"else"
486 0 0 66 3 1 #" "
487 0 0 22 3 1 #"("
488 0 0 14 3 9 #"contains?"
489 0 0 66 3 1 #" "
490 0 0 22 3 1 #"("
491 0 0 14 3 4 #"rest"
492 0 0 66 3 1 #" "
493 0 0 14 3 6 #"an-inv"
494 0 0 22 3 1 #")"
495 0 0 66 3 1 #" "
496 0 0 14 3 7 #"keyword"
497 0 0 22 3 4 #")]))"
498 0 0 66 29 1 #"\n"
499 0 0 66 29 1 #"\n"
500 0 0 66 29 1 #"\n"
501 0 0 66 29 1 #"\n"
502 0 0 22 3 1 #"("
503 0 0 15 3 6 #"define"
504 0 0 66 3 1 #" "
505 0 0 14 3 5 #"list1"
506 0 0 66 3 1 #" "
507 0 0 22 3 1 #"("
508 0 0 14 3 4 #"cons"
509 0 0 66 3 1 #" "
510 0 0 22 3 1 #"("
511 0 0 14 3 7 #"make-ir"
512 0 0 66 3 1 #" "
513 0 0 20 3 1 #"'"
514 0 0 14 3 5 #"robot"
515 0 0 66 3 1 #" "
516 0 0 20 3 5 #"29.95"
517 0 0 66 3 1 #" "
518 0 3          23 66 1 #"\0"
519 2 -1.0 -1.0 0.0 0.0 0           6 500
520 (
521  #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\09\0\0\0u\b\2\0\0\0{\340\336\305\0"
522  #"\0\n\341IDATx\234\345\\}LM\377\37\177\237n\17\267\242\334\362\34B4"
523  #"\222\321\242\31\e\252\371F3$k\306<\305\230\247YFT\2141\305D\331\210)"
524  #"\263\306jhL\211\262!\326\252MC\321\246\247\215<w\251[\327\275J\267"
525  #"\373\371\375\361\351{\234\316\303\347|\316\271'\337?~\257\277\3169"
526  #"\357\367\347\375~\235\367\375<\274?\17\347\2r\0\277~\375r\2448\306"
527  #"\346\315\233)5\301AOYYY\16Z\0\0ooo*MG\334\324\326\326\28d\341\375"
528  #"\373\367\b\241\232\232\232I\223&\311*\253\367\344\353\353\v\0[\267nU"
529  #"m\201\305\314\2313i\336\331\t\324\342\373\367\357\b\241\372\372z\325"
530  #"\26\316\236=\3130\f\3030\257^\275\242\321g\20B\252\235a\264\267\267"
531  #"\e\f\6EE\354v\273N\247\3\0E\336\325\307\225\205\301`\b\f\fTT\4\23U\n"
532  #"\r\270\2@CC\303\247O\237(\225\31\206\301\27K\227.U\346\306\361\226"
533  #"\2011o\336<JM\325\256\265\211+\0l\330\260!<<\334\323\323\223a\30\275"
534  #"^\357\343\343\23\30\30x\350\320\241\242\242\242\246\246&\236\362\344"
535  #"\311\223\221\212v\242\364\345\310\241rvv&\273suu]\276|\271J/\332r\5"
536  #"\00077\267\261c\307\32\f\6\17\17\17\2i''\247\314\314\314\277\3155??"
537  #"\37S$\253577\27\24\24\254Y\263\206\313\330f\263\321;\322\200+\0\254"
538  #"\\\271RE\301s\347\316)\252\204\332\264\255k\327\256\251(E\337\315ah"
539  #"\303\225\\5\245\360\376\375{E\372\232\365Y\\\364\366\366J\211\20\247"
540  #"!~\370\360A\221Y\r\362\1\206\351g\4\17KRf\271\312^^^f\263"
541 ) 500
542 (
543  #"\231\236\200\366q%\373\346J\273\272\272\24%\6\3R\a(C\325\323\323\243"
544  #"\327\353\351\315\16\bWz\f\e6\214^\371?\346\32\31\31I\257\374\37sU\4"
545  #"\355\271\326\325\325\5\5\0051\2\b5E\37\22 \223\26\251@pp0\245\346"
546  #"\344\311\223\333\332\332\350-k\20Wax\"\"\"n\334\270a2\231\254V\253"
547  #"\311djll\274t\351\222\260`HH\210\262\341@E\316\301\303\335\273wU\224"
548  #"\2324i\222R\2\32pU\264R\364\366\355[^\260ZZZ\26-Zt\373\366m\331\262"
549  #"\232\315\267d\261`\301\2\a\177\341\1\344j6\233\203\202\202\350k\243"
550  #"\335n\37@\256\356\356\356\nZ\206\30\302\303\303\337\275{\207\20Z\261"
551  #"b\205lh\35\352\a\314f\263\272\202\36\36\36\a\17\36D\b=~\374\330\337"
552  #"\337\37\0\2\2\2dK)\350_\273\273\273\277~\375ZZZ\372\345\313\227\246"
553  #"\246\246\353\327\257+\342\267j\325\252\177\376\371'>>^4\267b\273\5"
554  #"\22h~\353A\203\6)\242\305\242\250\250\250\247\247\207\306\305\203\a"
555  #"\17d\311\320\326\327\254\254,.\t\235N\267q\343\306\214\214\214\262"
556  #"\2622\234/;\210\327\257_\3\200\311d\322\200kWWWww7{\233\220\220\340"
557  #"\0205\1ZZZp\24\202\203\203+**Dud\332\226\237\237\37\316<\364z\275"
558  #"\233\233\e\3030c\306\214\1\0\27\27\27u\265B\n\b!\0())\251\255\255MKK"
559  #"c\30\346\316\235;<\35I\256\376\376\376\f\303|\376\374\31_\263\357"
560  #"\372\361\343GmYbtvv\2@GG\a\3030\205\205\205mmm\a\17\36d\30&,,\214"
561  #"\325\21\357\a\330t\244\247\247Gt\211j\330\260aIIIiiiZq\345%\\\6\203"
562  #"\1\257\230s\23#\21\36\335\335\335\370\2IO\233\364z\375\233"
563 ) 500
564 (
565  #"7o\264\241\t\0\0\337\276}\223\325\21\251\3eee 7\277\323\353\365\332V"
566  #"\6\\\331\274\275\275\t:\"\\\355v;\215\365\236\236\36u\264D\321\336"
567  #"\336\16\0\236\236\236\4\35\21\256K\226,\2215\355\345\345\245\232\226"
568  #"(\236<y\2\0\323\247O'\350\250\317\aF\215\32\245\272\254\20\270%)\256"
569  #"\0034\360\360\360P\272OD\306\217\37?duTrmmmU\272OD\206\315f\223\325"
570  #"\21_{\343-\247\t\341\345\345\365\343\307\17\rG/\251\25;.\23\225\\e"
571  #"\25\224\202\206\353\377\367\272\213\n|\377\376\235FM\204+\36B\b\320v"
572  #"\24\0\200\322\322R\0\2308q\242\214\2360M\2342e\212\350s\26\231\231"
573  #"\231d\5\245\300m4==](\342:\22q)\365\16,\206\17\37\256-W\354\261\276"
574  #"\276^T\364\347Z\252\244\250\321\23'N\20~\20\325 \30\344>\247\235\307"
575  #"\272\272\272j^Me\301\333\317\341\267-QB\f\303\260\317\253\253\253"
576  #"\265%\204g\205\242\340\rf|\256x\226\23\32\32*Z\30!\324\320\320\3400"
577  #"\275~HMM\225\22\311p\305+\24\341\341\341\302\2228\t\222\355\321\224"
578  #"\342\376\375\373R\"\31\256xf\262h\321\"a\311\2337o\202\3\353BR\300"
579  #"\263BQ\360\23\32\232&\t\0\353\326\255\303\327{\367\356\25\325q\260"
580  #"\23\210\210\210\20\212pUfoi\307\330\213\27/\342\213\301\203\a\323"
581  #"\307\214\36\261\261\261\302\207\274\337\220\226+;\23\322|\366\2021m"
582  #"\3324\341C\324?\355R\234\273h\313\225\255\254\v\27.\24JIq\315\315"
583  #"\315\5\0\336\344\4\37pd1a\302\4-H\366!##\203 5\231L\334\333~\\kjj@p"
584  #"\304\253\274\274\234{\353\370Z6\27\35\35\35\4)o7\252\37\327+W\256\0@"
585  #"tt4\367\341\356\335\273\271"
586 ) 500
587 (
588  #"\323v\37\37\37\r8\376\v\362\224\2207\210\366\343\212k\317\2349s\330'"
589  #"\305\305\305v\273}\307\216\35\354\23u\307E\244@^\274\371\365\353W"
590  #"\277{\251\316\225]\325\342\351\260uH\223\316\225\373\346Bivv6H\365"
591  #"\257x\307\21/\270\272\271\2719\0220JX\255V\202\224\267\264\341\f\0"
592  #"6\233m\320\240A\334@r\301\353\244\310\255A[\360\332\261S\\\\\234\213"
593  #"\213\213\24Q\0\350\354\354\344\276\37a\370\326\34\274\250;\345\345"
594  #"\345\2617\302\235\273\352\352\352\223'Ovvv2\f3\177\376|P~\250\212\6)"
595  #"))\242\317\277|\371\322\357~\317\236=aaa\344\26p\367\356]\254\214\20"
596  #"\332\266m\e{\335\332\332J\263\250\210\21\20\20\20\23\23s\354\330\261"
597  #"\364\364\364-[\266pE\b\241\254\254,\235N\347\344$2\216\2624@\247\323"
598  #"%&&\222\271\262\355\fq\366\322\265\202N\247\353\243\"\201?\375@oo"
599  #"\257\354\20\217k3\36E\204\ao1\30\206\211\214\214|\372\364\251\325jMJ"
600  #"JZ\265jUNN\16\353\306b\261Hu\314l\222\212\20\32;v,\276\346*\377\376"
601  #"\375\273\357\312\331\331\371\350\321\243\344\270b\315S\247NI\275}KK"
602  #"\213h\301\252\252\252\303\207\17\357\332\265+!!\341\305\213\27F\243"
603  #"\261\245\245\5\2175\301\301\301\253W\257\226u\212q\346\314\31\204P"
604  #"\337\330@(SRR\2\0\215\215\215<Cqqq\3447\354\352\352\"H]\\\\\306\215"
605  #"\e\307{gww\367\3\a\16\30\215F\241\221\321\243G\3B\210\320\266\216\34"
606  #"9\302\376@<\2348q\202\314\265\267\267\227 \345\366\203K\226,\251\251"
607  #"\251![\333\277\177?`\243R1\300\266\356\335\273'\24=|\370\220l\35!TYY"
608  #")%b\203\352\344\344$k\a!\224\222\222\322\27\2605"
609 ) 500
610 (
611  #"k\326\3606\244\361\242\225TP\21B?\177\376\224u@\250]\270\267\6\0///"
612  #"\32\256s\347\316\355g\v\347\332,\2\2\2h\254\220\271\376\376\375[Tt"
613  #"\372\364i\354\345\302\205\v\224\246\372\365\275\353\327\257G\bUUU]"
614  #"\276|\271\255\255M\252{R\4)#\354\n&\315\361\307\364\364t\0M\227\320D"
615  #"\203\221\232\232**b\307\352g\317\236\221\215\334\272u\253\217\362\0"
616  #"0\374\3\0000\30\f\4)\0\224\224\224\310\32\371K\\\261\v\321\263\e\0"
617  #"\220\227\2277u\352T\204\220\325j\335\267o\337\214\0313\244\16D\32"
618  #"\215\306\277\3045))ITz\376\374y\362d\323\325\325\365\217\376\337\341"
619  #"\212\203\307\203N\247\v\t\tA\b%$$\0\0\3030~~~\261\261\261\307\216\35"
620  #"\23\267\366w\270\212V\266\331\263g\263I\26\2255u$\36=zDe\235\310\265"
621  #"\265\265UQ\203Q\271\277\245\311\241\fE\a\313A\365^\234\242\325m\2556"
622  #"\32Tr\2459\236\302B\263-\6\372\352\302\205\257\257/\215\32\0\214\349"
623  #"\22'\371R\n\271\271\271\224NUruqq\241\262\16\260s\347NBP\0\0w[4PY\a"
624  #"\350\253\240\354\261\370\227/_R\232\32\360}n\362\21\26E\30p\256\25"
625  #"\25\25Z\231\32p\256x\277\35\237\230\24b\331\262e\364\246\6\234\353"
626  #"\317\237?\1`\356\334\271\242R| \253\253\253\213\306\324\200s\265X,\0"
627  #"0k\326,Q\351\376\375\373\341\337]>Y\f8W\274\256\350\347\347'*\305-Ox"
628  #"\324U\34\264=j\177p\323J\2X/\345\345\345d\35\32k*\343:t\350PE\372J?"
629  #"\177\22\205J\256\362\347h\6\0*\271\322\177<\202\367o5\331\35W\306u"
630  #"\361\342\305\f\303\214\e7.&&\206\240f2\231\330\377\374(,,\4\200\347"
631  #"\317\237"
632 ) 342
633 (
634  #"\253\246\370\a\264\255\t!\274\242\30\32\32j4\32\267o\337\3165\22\32"
635  #"\32\32\37\37\177\372\364\351\374\374|L\216k\37\244\27\202\270j\351"
636  #"\351\351W\257^%\20P\362\251\227\222w\343\222\300\211\271P'11\221\367"
637  #"J\0p\374\370qG\271\262\25\216R\337f\263\231\315\346\250\250(\350?"
638  #"\337\262\331l\211\211\211\274\3566::\32!\324\334\334<b\304\bB\266I"
639  #"\353{\310\220!\0000b\304\bJ}\26\354v\5\315\337\"l\332\264\t\0:::\304"
640  #"MQVk\234\260\342\277pP\4v\345\237\346\323m\34\221\312\312JQ)-W\354I"
641  #"\352,\24\18w\241<y\202\2671\244>\356\244\345\212O&)\335\244e\207+"
642  #"\312\357\0\212\213\213\201\260\371\255\250\362\361\364-\26KNN\316"
643  #"\332\265ki\16\226\310\32gO)dgg\213{W\304\325h4\322\204\207\305\370"
644  #"\361\343\353\352\352\310\\-\26KAA\1w\252\363\371\363g\r\270\"\2123"
645  #"\332111W\256\\\261X,X_x\336\340\366\355\333\311\311\311\370\224\255"
646  #"\20\311\311\311\222\256\225r\305\260\333\355&\223\311l6\323\364D\224"
647  #"?BTT\24\371\263\323\377\1\250\227\355f\254\315s9\0\0\0\0IEND\256B`"
648  #"\202"
649 ) 0 0 22 3 1 #")"
650 0 0 66 29 1 #"\n"
651 0 0 66 3 20 #"                    "
652 0 0 22 3 1 #"("
653 0 0 14 3 4 #"cons"
654 0 0 66 3 1 #" "
655 0 0 22 3 1 #"("
656 0 0 14 3 7 #"make-ir"
657 0 0 66 3 1 #" "
658 0 0 20 3 1 #"'"
659 0 0 14 3 4 #"doll"
660 0 0 66 3 1 #" "
661 0 0 20 3 4 #"9.95"
662 0 0 66 3 1 #" "
663 0 3          21 66 1 #"\0"
664 2 -1.0 -1.0 0.0 0.0 0           5 500
665 (
666  #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0T\0\0\0u\b\2\0\0\0_\371Q\5\0\0\baI"
667  #"DATx\234\325\\_HS\357\e\177\217\231\332\\[h\00313m\264j!\254\314V"
668  #"\220F--\252\v#\f\242\302\274\20\262\b\212\f\274H\"\"\250 \272\311"
669  #"\253\376\b\321E\27%\366\207B\363b\375!\212\32\264\213\246i\323L\233"
670  #"\2469k\233f\233\353\375^\274\277\316\357\264\271\355l\347y\316\231"
671  #"\237\253\355\374\371<\317s\236\347}\337\347\375\313QJI2!??\177``\200"
672  #"\20\242\321h~\376\374\211*+\5\225=\0010\313\t!\36\217'==\375\375\373"
673  #"\367x\262\270d\363<\307q!WV\256\\\351p80d%\235\347\351_tww\263+\235"
674  #"\235\235{\367\356\305\220\225t\236\17A\177\177\177AA\1!\4CO%=\237"
675  #"\225\225\305\t0\3433K\226,\241\224>x\360\0E\3\252\20\334n7!\204\343"
676  #"\270\246\246\246\307\217\37\23B\32\32\32d\326A\261\260\337\272ukff"
677  #"\346\375\373\367\371+Z\255\26\273m\vA\252\234\302\204\350\352\352\32"
678  #"\34\34\24^)++\223Y\a\305<\177\352\324\251\214\214\214s\347\316)\""
679  #"\235A\311\332\236\343\270\17\37>\30\215F\245\24P\270\235_\265j\325"
680  #"\263g\317\224\222\256\244\347m6\333\332\265k\211\2106\234\343P\364T"
681  #"\254\302#\204\24\27\0273\223\204\215\274\320H\376:R;\237\24\31^\244"
682  #"\f\207\a\222\222I\221\333SJ].\327\262e\313\302o\231L&D\367\310\234T"
683  #"\305DEEEJJ\n!d\371\362\345\330\262\222\"\354\225BR\204\275R\230\255"
684  #"\306\373\375\376\232\232\32.2\366\355\333\347p8\376\374\371\23\215\5"
685  #"\273\\a \336/u\372\364\351\231yd\326;\34\323\323\323\337\276}\23\363"
686 ) 500
687 (
688  #"\344\376\375\373\2311\375\375\375\"\311\207\206\206v\354\330!\374\20"
689  #"\255\255\255\374]e\214\267\331l\221\274\364\365\353\327Ho\2358q\342"
690  #"\356\335\273\211I\274z\365jFF\6/\245\242\242\202\312o\374\372\365"
691  #"\353\305\4\352\272u\353\220\24\370G\f\222\214\230\202\315f\263\325j"
692  #"\25\336u\273\335\365\365\3652\350f\265Ze5\236\rZ\361\350\350\350\210"
693  #"\364dss3\377\330\355\333\267\221\364\31\36\36&2\344\366|\336^ZZ\372"
694  #"\374\371\363\304\336ER\22\267\235W\253\325\354\a\2454^\313\331[\26"
695  #"\213\205\210\350\371$\b\244\270\242\224\356\332\265\vD\4\236\236X"
696  #"\375y\255V\353\361x\bD\304RJ\221<\17\37\366>\237\217\3438\217\307#"
697  #"\364\233D0\373\323\322\322@\330x\300Wx\314K\340\264\32\215\306\353"
698  #"\365\302\322\2{\36\311rB\b+D\327\257_\a\344\204\364<\263<//\217\237c"
699  #"\a\a\354H&X\205\207\347s!\366\354\331\3I\a\322f\234<y\22\212*&>}\372"
700  #"\4E\5P\346_\277~}\371\362e*\327p\30\340$\207T\343\17\37>\274a\303\6"
701  #"\20UD\342\325\253WPT\222\312<+\347\273w\357nii\1\322'6\276\177\377"
702  #"\16E%\265\302{\364\350\321\316\235;AT\21\t\266J\5\6\t\327\26g\316"
703  #"\234)//\207\252{\304\243\275\275\35\212*\361f\23i\3620&\6\6\6\26/^\f"
704  #"B\225H\330\263\242\16\233l\211\27\r\370\305\343\346JOO\367\373\375\6"
705  #"\203\341\343\307\217PJ\304%\375\367\357\337Plq\e/O&7#jjjrss\317\237?"
706  #"\17E\230\210\361\212X\336\336\336\276m\3336X\321qX\242\240\317\t\316"
707  #"G\27\233\3411\313KJJ`\305\213Dee\345\347\317\237\341y\305\264\207l"
708  #"\205\344\2349s\240\32\330\270\300j8"
709 ) 500
710 (
711  #"\ffQ\261\244`\300\367\365\365-]\272\24Iz\354v\376\332\265kH\262c\202"
712  #"\37\267\34\37\37G\21\20=0\304<\223\0~\375\372\25\345\256\313\345\312"
713  #"\313\313c\242C\246\264`\21\315\363\354\303o\331\262\5\374\213[\255"
714  #"\326\355\333\267G\21\312@\261\303-\322Waw5\32\r\322W'\204TUU\365\366"
715  #"\366\216\214\214\\\272t)33S\250Unn.\222\334\177t\230\361\352\255["
716  #"\267\br\365\36\311\31\t\317\300'\200\320\332\336h4vvv\22\345\222\319"
717  #"\221b2\2318\216+...**\3428\216Y\16\233\314\0vE\320\361\344\311\23"
718  #"\330\350\312\311\311\241\224\366\366\366\212\17\351`0\350t:a\325\b\a"
719  #"\311\316\316F\265\234RJ\376V\253\204\220\2337oFyrllL\245R\2058\303"
720  #"\345r\201\253\364?}\220x\205hkk\23\376\235;wn\244\240+))\231\232\232"
721  #"\22>\334\323\323\303na(\246\330\362\323\356\356\356\276\276\276\224"
722  #"\224\24\275^\317\22\330(P\253\325>\237\17\\\at\343\3\201@\24W+\v\364"
723  #"\345\247\251\2510\323\201~\277\37\204G\210Y\263\352Z\311\301\f)\300"
724  #"\352\223I\206\34\306\267\266\266J'ihhp:\235\322y\376\1F\23\22\2\220"
725  #"\211\35\257\327{\364\350Q\351<B\310Q\346\215F#\310\356\177\330A{\"O"
726  #"\330\257Y\263\6\204\207_\330\a\59\214\327\353\365 <G\216\34\1\341"
727  #"\341!\207\361\205\205\205 <\26\213\345\335\273w T\fr\30?\177\376|("
728  #"\252\3\a\16@Q\221Y\267\301htt\24\220M\16\343GFF\240\250ZZZ\0g\207"
729  #"\345\330H\374\345\313\27(\252M\2336\31\f\6\376\24\31\211\220\303\363"
730  #"?~\374\0d\343{\370\322!G\222\223\223\223\303\266u\200`zz\32\252\2478"
731  #"\313j{\2\327G"
732 ) 500
733 (
734  #"&\362\30\37s\240&^@\305\221\34\306WVV\302\22\212\334\234\27\e\260"
735  #"\375\244p`\214\275^\270p\301\357\367K\347A\367\374\275{\367\3009\217"
736  #"\35;\326\324\324$\235\a\275\266\317\316\316\36\e\e\3\247\5\31\325"
737  #"\222cS!\206\b\220\301l\364\260GZ\220\355\363\371\216\37?.\221d\326"
738  #"\214\336\206CzL\315\262^\235\20\v\26,\220\310\200k|[[\e\36\371\215\e"
739  #"7\244RHo-\243\0\233\277\252\252J\312\353\210e\336\343\361\224\226"
740  #"\226\332\355v$~\"\271\330#\366\347W\254X\321\325\325\205\307O$\257 A"
741  #",\363CCC\32\215\6\217\237\20r\350\320!)\257c\205}ZZ\332\2337oV\257^"
742  #"\215A\16\5\24\317766\6\2\201$\267\234 y\236\343\270\262\2622\31\316w"
743  #"\2248\252\203U\346\37>|\210\304,\204\324\357\v\321\334\206\342\342"
744  #"\305\213\30\264\341HMM\225\364:\220\17\376\217\362\362\362\247O\237"
745  #"\202\323\206C\257\327_\271rE\n\3\312\261\21\340\234H\202\340\313\374"
746  #"\302\205\v\3019\303\1r~\n\274\361\330Y\35\371k9;EC\22\17l\210NNN\206"
747  #"\257\37\5\304\324\324\324\274y\363\b\320\242p`\317\253T*vv)\0066o"
748  #"\336\fh9\301\350\330 \325v|!\257\253\253\3#\225\334\326\206\242\260"
749  #"\260\360\355\333\267\200\204g\317\236\345\265\35\37\37\adFIr\230\242"
750  #"\215\215\215RHB\346\341\241t\23\2\205TX\347\305\373\256\333\355\326"
751  #"\351tB\263\233\233\233\21t\244\24i\306fbb\202_9\304q\234\230\223}"
752  #"\202\301`GG\207V\253\315\312\312\342\327\236\214\216\216RJ\27-Z\204"
753  #"\241$!\230cl!3J\6\203\201\235\354%D \20\350\351\351\231\361\2703v"
754  #"\3047\245\264\276\276\36IC,\343\371#\341(\245/^\274\210\231"
755 ) 202
756 (
757  #"\220\251T\252\203\a\17\316\270\323rbb\302\351t\n\347\271\241\224D\31"
758  #"\303\v\6\203w\356\334\251\255\255e\1777n\334\310\216]\366x<6\233\315"
759  #"\341p\f\17\17\27\24\24\30\f\206\242\242\242\230\303\357:\235nrr\222"
760  #"\377\v\271\32\r\352+\na\267\333\a\a\a\241\330\230\236\371\371\371"
761  #"\265\265\265!;p\2442\3r\361\250\256\256\6d\253\253\253\3d\23\2 \267"
762  #"\177\371\362\245\305b\t\337\6\"\235\31\e\222\312\274\335n7\231L\302+"
763  #":\235\256\272\272\332l6\233\315fi\212\311\1I\236\347\353p\265Z\355"
764  #"\365z\201T\222\17\211'9\314r\266\3s6ZN\b\371\17\24\274S\2\f\350I\266"
765  #"\0\0\0\0IEND\256B`\202"
766 ) 0 0 22 3 1 #")"
767 0 0 66 29 1 #"\n"
768 0 0 66 3 26 #"                          "
769 0 0 22 3 1 #"("
770 0 0 14 3 4 #"cons"
771 0 0 66 3 1 #" "
772 0 0 22 3 1 #"("
773 0 0 14 3 7 #"make-ir"
774 0 0 66 3 1 #" "
775 0 0 20 3 1 #"'"
776 0 0 14 3 6 #"rocket"
777 0 0 66 3 1 #" "
778 0 0 20 3 5 #"59.95"
779 0 0 66 3 1 #" "
780 0 3          21 66 1 #"\0"
781 2 -1.0 -1.0 0.0 0.0 0           5 500
782 (
783  #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0003\0\0\0u\b\2\0\0\0l\302N\f\0\0\b"
784  #"9IDATx\234\315\233[H\24_\34\307\177\353\256m\333n\332\305Z\273mIX"
785  #"\202\31\226\255\21E\322B\241ADR\30X`\5BDB/A\21R\21\24\4\322\205\324"
786  #"\207\350\16\25\21t\243\202B\"\272\240\17=\264eXRY\232!\262\233i\271"
787  #"\272\332\371?\374\326\343\354\354\\\31693\343\376\277/;s.\277\363"
788  #"\231\337\271\314\271\314\332\b!`\231\334n\367\237?\177\304\362\246"
789  #"\230\213\"Uii\351\337\277\177\205\263;LD\221\312f\263\31\264`\211"
790  #"\317\244X\302\210\26\326&\312\351t^\271rE$'1U2\17\345\346\346b\17"
791  #"\313\316\316\3465e&\331\266m\333\244Xyyy\30\276u\353V\1\27\230F\326"
792  #"\321\321!\305\272x\361b\\1\0~\277?9d3f\314\320h$\225\225\225\274n"
793  #"\263\21\223FZi\vS\264i\263\361\225eN\337\334\276};\275^\273v\255b"
794  #"\232\23'Np\3314\301gCCC\251\251\251\364V\315`ss\263\317\347\363x<"
795  #"\254v\215\2670Y=j\250\274\274\234\335\254Q2\256\207\4\200\262\2622V"
796  #"\313\306\300F\3116o\336\314\222x\362\344\311\254\226\215`\235;w\216"
797  #"\253Up\265\37C=@w\244\220\311\341p\f\17\17wvvfff\352&\266\374\215."
798  #"\325\223'O\0 ++\213)\265pUJ\235t\373\366m\256,L)\205\261B\241\20\26S"
799  #"XX\310\236\353\300\201\3\0\320\325\325e!\331\316\235;\221\254\273"
800  #"\273\233=\327\347\317\237\1\340\310\221#V\221\235={\26\261\262\262"
801  #"\262x\3632V\250 \231\327\353\305\2\232\233\233y\363.]\272\324B2#\35"
802  #"\350\321\243G,\31E\3063BHJJ"
803 ) 500
804 (
805  #"\n\0\270\\.\261u\e\313\214Hd<;\177\376<^\24\27\27\vdg\225@u\30\311"
806  #"\213\n\4\2\17\37>\324)E\300\256q\262k\327\256\25\24\24h\247\341ng"
807  #"\321ht\334\270q\224L\254\242\320\210vv\356v\206=\313\240p\16\374\346"
808  #"\315\e\2154\334>\343\235_h\330\261\333\355CCCj\t\306t\256!\323\360"
809  #"\360\260F\2548YQQ\221p^\26\211\223m\330\260\301x\361_\276|Q\215\343"
810  #"\355\360\302\31\25\355\344\347\347\253&\20\263X\\\\l\f\2148\235N\355"
811  #"'\24\254M\351\242\\L\313\226-\323N\300Gv\343\306\r\274\b\4\2\202D#Z"
812  #"\271r\245N\n\256*\310\317\317\27\310\245(:d\334\277\177\337\204\332|"
813  #"\373\366-\277w\224\205\363(\0x\372\364\251r\n\256\a\305,n\267\333"
814  #"\270\317\b!>\237\17\0\\.\227b\254H\17X\267n\235\210\227\22\204\373Y"
815  #"\375\375\375\312\321\354\217\30\211D0\313\207\17\37L\361\331\313\227"
816  #"/5\308\310\36<x\300\3730\332\n\207\303\32\69j\363\365\353\327B\225"
817  #"\246\252I\223&i\304r\220\275\177\377\3360\f\2078\346gn\267\eWJ\354Y"
818  #"\364\213\267\331\324\fr\370\f\261\260\253\217\201\270G\215\377/\331"
819  #"\202\5\vL,\336n\267\3\200\342\234\233\233,''\307\4\242\21\341&\274r"
820  #"\337b\37~0}__\237\31cYL\370:\331\267o_b\24\267\317\334n\267!/\305k"
821  #"\316\2349\0 ;MC\261\222\365\365\365\231\bD\205d?~\374H\214b%kkk3\223"
822  #"(^\3645%\25+Ycc\243\25101M\2348\21\0\332\333\333\23\243X\311\276}"
823  #"\373f&Q\274\350,F*V\262\337\277\177\233\n\23\247\201\201\201\304\300"
824  #"$\223)z\v\305J\366\353\327/\223`\342\324\333\333\253\26\225\344Q\243"
825 ) 500
826 (
827  #"\273\273[-*\231{A\240\331\261\222\334\316\24G\177T\222}\326\332\332"
828  #"\252\26\225d2\305\361\2\225d2\324\370\361\343\23\3\365\277?{\374\370"
829  #"qKK\213\5<\243\222~T1*\215\311\23\375\20\220\20\262b\305\n\335\364"
830  #"\272\232?\177~OO\2174\4m\372|\276\304\304\252>\v\207\303S\246L\201"
831  #"\221\205\215)}\263\265\265U\361\304i\372\364\351\211\211U\333\31buuu"
832  #"\341\255\306k\204K\204\220C\207\16\311\2\247N\235\312Jv\341\302\5\0("
833  #"//\2376m\32\206h\274FxE\317F\251\322\323\323\1`\375\372\365q\241\211"
834  #"\25\214\a\344\16\207C\32H\273\217\221v&m^\204\220\236\236\36\264I"
835  #"\327\1\322s\\yI\273w\357V$\320x\22a544\240\315{\367\356\321\300P("
836  #"\244@\326\331\331\211IO\237>m5\31\0\\\275z\25mvtt\320\360H$\22\211D"
837  #"\344d\32\305[\3413\\\6\3@4\32\225\206\327\327\327+\223566\216\r\31"
838  #"\235Y%Fedd\214\206j\27\214\37\f\254^\275\332D2\224\254\253Q\230\330"
839  #"\250\201\335$77W\251\233\3\0\314\235;\27\30\216\27\4\24\215Fe!\350"
840  #"\313\30Yuu5h\236\252fdd\0\300\314\2313M'\3\0\277\337/\275\305o\226cd"
841  #"g\316\234\201\221\25\263\242\262\263\263\1\200\16\274\346j\371\362"
842  #"\345t\23\30\0\366\354\331\3\0@\b)++\3\200\324\324T\215\326\200{\343"
843  #"\257^\2752\275\235\241\202\301\240\374\225Jojjj\2643\3@0\30\264\210"
844  #"\f\355\307\255\203\350nG\177\177\277n\316\266\2666\353\310._\276\34W"
845  #"\307{\367\356\245\316K.\31Q\334\230\266\333\355\377\a\262]\273v-Z"
846  #"\264\b\217ucd\263g\317f!{\367\356\235\245dtW\237\320=G\227\313\245"
847  #"\333\267"
848 ) 500
849 (
850  #"\235N'\235\267X$\304\330\261c\a\320\361LcuE\345\365z\0257\aM\327\245"
851  #"K\227\0 \5w\227\177\376\374\251\233\241\260\260\360\372\365\353VcQ"
852  #"\245,Y\262\4\0\6\a\au\223\346\344\344\334\275{\327R\232\232\232\32"
853  #"\274\370\372\365+\34<x\20ot\233'\276\6,\355\1\263f\315B\230`0\230"
854  #"\302\372E\260\312J\332\\\321\r\230\t\23&\214\276\235\314z\356\364"
855  #"\364t\261\214\5\5\5\24\221\340\234\226\213L\367k\373P(\324\336\336.@"
856  #"&u^\214\f?\204\371\367\357\37\243\211[\267n\351\226\301\213U__O\261*"
857  #"++cd\363\346\315\3\0\331\216\203\232\26.\\\250\233F\200L\352\260p8L"
858  #"\360\35\260q\343F\0\370\364\351\23K#mii\261\331l6\233m\325\252U\32"
859  #"\311\214\314\313c\347\353ddEz\364\350Q\261G\244\262\333\355iii~\277"
860  #"\237B\vX\e\r$\204\340\361\342\226-[\330\311\6\a\a\217\35;\246\373"
861  #"\364F\311p7E\373\277+w\356\334I,\t\377#\241\241\343\307\217\e\"#z\3G"
862  #"mm\255\266\e4^n\\dk\326\254\341 \223mw\261\224\204\332\277\177?K\372"
863  #"\212\212\nE\343:d8!\241\222n\332\260\210\205\214\356ndff\262\222}"
864  #"\377\376]\212%0\325f!\243\366\353\352\352X\311\244Xb\337O555\325\326"
865  #"\326j$\220\316X\345\245\343\17\236\315\252a\t0I\355h\304\342?N\1\300"
866  #"\343\361(\223-^\274Xj\242\264\264\224b\5\2\1\203d\325\325\325\32\261"
867  #"\250\212\212\ne2\374\213\20^?\177\376\334,\207\21B\362\362\362\0@m"
868  #"\366AKI\374kR\254\340\252\252*\n\341p\214\36\22|\374\370\321 \31~"
869  #"\264YRR\242M\246\20\205?uuu\200\263\357\21y\275^\203LRy<\236"
870 ) 162
871 (
872  #"\242\242\"Y \356/)62B\317P\320O8\35B\261\254\246\330\325\333\333+"
873  #"\373\23\375\300\300\0\235\335l\332\264)1Kl\275\231\226\226f\"\207"
874  #"\242JJJ\244\267'O\236\244\327\3623\n\24\272\356\346\315\233\322\300"
875  #"\206\206\6\23\253\222\352\331\263g\364Z\372}\221bb\371\0162\313\326"
876  #"\213\21\341\266\346\213\27/\22\275\243Jv\370\360a\0hjj\262\224\214("
877  #"\315:u\310\b!UUUVc\305J\345%\eKQ\254S\247N)&\370\17#l\0_X\204\310m\0"
878  #"\0\0\0IEND\256B`\202"
879 ) 0 0 22 3 1 #")"
880 0 0 66 3 1 #" "
881 0 0 14 3 5 #"empty"
882 0 0 22 3 4 #"))))"
883 0 0 66 29 1 #"\n"
884 0 0 66 29 1 #"\n"
885 0 0 17 3 57 #";show-picture : symbol inventory -> mixed (image/boolean)"
886 0 0 66 29 1 #"\n"
887 0 0 17 3 56 #";Given name and an-inv, this function produces the image"
888 0 0 66 29 1 #"\n"
889 0 0 17 3 44 #";of the toy with the corresponding name.  If"
890 0 0 66 29 1 #"\n"
891 0 0 17 3 51 #";the toy is not in the inventory, false is returned"
892 0 0 66 29 1 #"\n"
893 0 0 17 3 9 #";instead."
894 0 0 66 29 1 #"\n"
895 0 0 66 29 1 #"\n"
896 0 0 22 3 1 #"("
897 0 0 15 3 6 #"define"
898 0 0 66 3 1 #" "
899 0 0 22 3 1 #"("
900 0 0 14 3 12 #"show-picture"
901 0 0 66 3 1 #" "
902 0 0 14 3 4 #"name"
903 0 0 66 3 1 #" "
904 0 0 14 3 6 #"an-inv"
905 0 0 22 3 1 #")"
906 0 0 66 29 1 #"\n"
907 0 0 66 3 2 #"  "
908 0 0 22 3 1 #"("
909 0 0 15 3 4 #"cond"
910 0 0 66 29 1 #"\n"
911 0 0 66 3 4 #"    "
912 0 0 22 3 2 #"[("
913 0 0 14 3 6 #"empty?"
914 0 0 66 3 1 #" "
915 0 0 14 3 6 #"an-inv"
916 0 0 22 3 1 #")"
917 0 0 66 3 1 #" "
918 0 0 14 3 5 #"false"
919 0 0 22 3 1 #"]"
920 0 0 66 29 1 #"\n"
921 0 0 66 3 4 #"    "
922 0 0 22 3 2 #"[("
923 0 0 14 3 8 #"symbol=?"
924 0 0 66 3 1 #" "
925 0 0 22 3 1 #"("
926 0 0 14 3 7 #"ir-name"
927 0 0 66 3 1 #" "
928 0 0 22 3 1 #"("
929 0 0 14 3 5 #"first"
930 0 0 66 3 1 #" "
931 0 0 14 3 6 #"an-inv"
932 0 0 22 3 2 #"))"
933 0 0 66 3 1 #" "
934 0 0 14 3 4 #"name"
935 0 0 22 3 1 #")"
936 0 0 66 3 1 #" "
937 0 0 22 3 1 #"("
938 0 0 14 3 8 #"ir-image"
939 0 0 66 3 1 #" "
940 0 0 22 3 1 #"("
941 0 0 14 3 5 #"first"
942 0 0 66 3 1 #" "
943 0 0 14 3 6 #"an-inv"
944 0 0 22 3 3 #"))]"
945 0 0 66 29 1 #"\n"
946 0 0 66 3 4 #"    "
947 0 0 22 3 1 #"["
948 0 0 14 3 4 #"else"
949 0 0 66 3 1 #" "
950 0 0 22 3 1 #"("
951 0 0 14 3 12 #"show-picture"
952 0 0 66 3 1 #" "
953 0 0 14 3 4 #"name"
954 0 0 66 3 1 #" "
955 0 0 22 3 1 #"("
956 0 0 14 3 4 #"rest"
957 0 0 66 3 1 #" "
958 0 0 14 3 6 #"an-inv"
959 0 0 22 3 5 #"))]))"
960 0 0 66 29 1 #"\n"
961 0 0 66 29 1 #"\n"
962 0 0 17 3 38 #";price-of : symbol inventory -> number"
963 0 0 66 29 1 #"\n"
964 0 0 17 3 42 #";Given name and an-inv, it finds the price"
965 0 0 66 29 1 #"\n"
966 0 0 17 3 40 #";of the corresponding toy with the name."
967 0 0 66 29 1 #"\n"
968 0 0 17 3 47 #";Returns 0 if the item is not in the inventory."
969 0 0 66 29 1 #"\n"
970 0 0 66 29 1 #"\n"
971 0 0 22 3 1 #"("
972 0 0 15 3 6 #"define"
973 0 0 66 3 1 #" "
974 0 0 22 3 1 #"("
975 0 0 14 3 8 #"price-of"
976 0 0 66 3 1 #" "
977 0 0 14 3 4 #"name"
978 0 0 66 3 1 #" "
979 0 0 14 3 6 #"an-inv"
980 0 0 22 3 1 #")"
981 0 0 66 29 1 #"\n"
982 0 0 66 3 2 #"  "
983 0 0 22 3 1 #"("
984 0 0 15 3 4 #"cond"
985 0 0 66 29 1 #"\n"
986 0 0 66 3 4 #"    "
987 0 0 22 3 2 #"[("
988 0 0 14 3 6 #"empty?"
989 0 0 66 3 1 #" "
990 0 0 14 3 6 #"an-inv"
991 0 0 22 3 1 #")"
992 0 0 66 3 1 #" "
993 0 0 20 3 1 #"0"
994 0 0 22 3 1 #"]"
995 0 0 66 29 1 #"\n"
996 0 0 66 3 4 #"    "
997 0 0 22 3 2 #"[("
998 0 0 14 3 8 #"symbol=?"
999 0 0 66 3 1 #" "
1000 0 0 22 3 1 #"("
1001 0 0 14 3 7 #"ir-name"
1002 0 0 66 3 1 #" "
1003 0 0 22 3 1 #"("
1004 0 0 14 3 5 #"first"
1005 0 0 66 3 1 #" "
1006 0 0 14 3 6 #"an-inv"
1007 0 0 22 3 2 #"))"
1008 0 0 66 3 1 #" "
1009 0 0 14 3 4 #"name"
1010 0 0 22 3 1 #")"
1011 0 0 66 3 1 #" "
1012 0 0 22 3 1 #"("
1013 0 0 14 3 8 #"ir-price"
1014 0 0 66 3 1 #" "
1015 0 0 22 3 1 #"("
1016 0 0 14 3 5 #"first"
1017 0 0 66 3 1 #" "
1018 0 0 14 3 6 #"an-inv"
1019 0 0 22 3 3 #"))]"
1020 0 0 66 29 1 #"\n"
1021 0 0 66 3 4 #"    "
1022 0 0 22 3 1 #"["
1023 0 0 14 3 4 #"else"
1024 0 0 66 3 1 #" "
1025 0 0 22 3 1 #"("
1026 0 0 14 3 8 #"price-of"
1027 0 0 66 3 1 #" "
1028 0 0 14 3 4 #"name"
1029 0 0 66 3 1 #" "
1030 0 0 22 3 1 #"("
1031 0 0 14 3 4 #"rest"
1032 0 0 66 3 1 #" "
1033 0 0 14 3 6 #"an-inv"
1034 0 0 22 3 5 #"))]))"
1035 0 0 66 29 1 #"\n"
1036 0 0 17 3 1 #";"
1037 0 0 66 29 1 #"\n"
1038 0 0 17 3 16 #";Data Definition"
1039 0 0 66 29 1 #"\n"
1040 0 0 17 3 39 #";A record (phone record) is a structure"
1041 0 0 66 29 1 #"\n"
1042 0 0 17 3 42 #";(make-record s n) where s is a symbol and"
1043 0 0 66 29 1 #"\n"
1044 0 0 17 3 15 #";n is a number."
1045 0 0 66 29 1 #"\n"
1046 0 0 66 29 1 #"\n"
1047 0 0 22 3 1 #"("
1048 0 0 15 3 13 #"define-struct"
1049 0 0 66 3 1 #" "
1050 0 0 14 3 6 #"record"
1051 0 0 66 3 1 #" "
1052 0 0 22 3 1 #"("
1053 0 0 14 3 4 #"name"
1054 0 0 66 3 1 #" "
1055 0 0 14 3 6 #"number"
1056 0 0 22 3 2 #"))"
1057 0 0 66 29 1 #"\n"
1058 0 0 17 3 1 #";"
1059 0 0 66 29 1 #"\n"
1060 0 0 17 3 16 #";Data Definition"
1061 0 0 66 29 1 #"\n"
1062 0 0 17 3 1 #";"
1063 0 0 66 29 1 #"\n"
1064 0 0 17 3 22 #";A directory is either"
1065 0 0 66 29 1 #"\n"
1066 0 0 17 3 20 #";1. an empty list or"
1067 0 0 66 29 1 #"\n"
1068 0 0 17 3 40 #";2. (cons r dir) where r is a record and"
1069 0 0 66 29 1 #"\n"
1070 0 0 17 3 20 #";dir is a directory."
1071 0 0 66 29 1 #"\n"
1072 0 0 17 3 1 #";"
1073 0 0 66 29 1 #"\n"
1074 0 0 17 3 42 #";whose-number : number directory -> symbol"
1075 0 0 66 29 1 #"\n"
1076 0 0 17 3 47 #";Given a-num and a-dir, finds the corresponding"
1077 0 0 66 29 1 #"\n"
1078 0 0 17 3 44 #";name of the person who owns the number.  If"
1079 0 0 66 29 1 #"\n"
1080 0 0 17 3 44 #";the person is not in the directory, returns"
1081 0 0 66 29 1 #"\n"
1082 0 0 17 3 28 #";the symbol 'NotInDirectory."
1083 0 0 66 29 1 #"\n"
1084 0 0 17 3 1 #";"
1085 0 0 66 29 1 #"\n"
1086 0 0 17 3 9 #";Template"
1087 0 0 66 29 1 #"\n"
1088 0 0 17 3 31 #";(define (dir-func a-num a-dir)"
1089 0 0 66 29 1 #"\n"
1090 0 0 17 3 8 #";  (cond"
1091 0 0 66 29 1 #"\n"
1092 0 0 17 3 26 #";    [(empty? a-dir) ... ]"
1093 0 0 66 29 1 #"\n"
1094 0 0 17 3 60
1095 #";    [... (first a-dir) (dir-func a-num (rest a-dir)) ...]))"
1096 0 0 66 29 1 #"\n"
1097 0 0 66 29 1 #"\n"
1098 0 0 22 3 1 #"("
1099 0 0 15 3 6 #"define"
1100 0 0 66 3 1 #" "
1101 0 0 22 3 1 #"("
1102 0 0 14 3 12 #"whose-number"
1103 0 0 66 3 1 #" "
1104 0 0 14 3 5 #"a-num"
1105 0 0 66 3 1 #" "
1106 0 0 14 3 5 #"a-dir"
1107 0 0 22 3 1 #")"
1108 0 0 66 29 1 #"\n"
1109 0 0 66 3 2 #"  "
1110 0 0 22 3 1 #"("
1111 0 0 15 3 4 #"cond"
1112 0 0 66 29 1 #"\n"
1113 0 0 66 3 4 #"    "
1114 0 0 22 3 2 #"[("
1115 0 0 14 3 6 #"empty?"
1116 0 0 66 3 1 #" "
1117 0 0 14 3 5 #"a-dir"
1118 0 0 22 3 1 #")"
1119 0 0 66 3 1 #" "
1120 0 0 20 3 1 #"'"
1121 0 0 14 3 15 #"NotInDirectory."
1122 0 0 22 3 1 #"]"
1123 0 0 66 29 1 #"\n"
1124 0 0 66 3 4 #"    "
1125 0 0 22 3 2 #"[("
1126 0 0 14 3 1 #"="
1127 0 0 66 3 1 #" "
1128 0 0 22 3 1 #"("
1129 0 0 14 3 13 #"record-number"
1130 0 0 66 3 1 #" "
1131 0 0 22 3 1 #"("
1132 0 0 14 3 5 #"first"
1133 0 0 66 3 1 #" "
1134 0 0 14 3 5 #"a-dir"
1135 0 0 22 3 2 #"))"
1136 0 0 66 3 1 #" "
1137 0 0 14 3 5 #"a-num"
1138 0 0 22 3 1 #")"
1139 0 0 66 29 1 #"\n"
1140 0 0 66 3 5 #"     "
1141 0 0 22 3 1 #"("
1142 0 0 14 3 11 #"record-name"
1143 0 0 66 3 1 #" "
1144 0 0 22 3 1 #"("
1145 0 0 14 3 5 #"first"
1146 0 0 66 3 1 #" "
1147 0 0 14 3 5 #"a-dir"
1148 0 0 22 3 3 #"))]"
1149 0 0 66 29 1 #"\n"
1150 0 0 66 3 4 #"    "
1151 0 0 22 3 1 #"["
1152 0 0 14 3 4 #"else"
1153 0 0 66 3 1 #" "
1154 0 0 22 3 1 #"("
1155 0 0 14 3 12 #"whose-number"
1156 0 0 66 3 1 #" "
1157 0 0 14 3 5 #"a-num"
1158 0 0 66 3 1 #" "
1159 0 0 22 3 1 #"("
1160 0 0 14 3 4 #"rest"
1161 0 0 66 3 1 #" "
1162 0 0 14 3 5 #"a-dir"
1163 0 0 22 3 5 #"))]))"
1164 0 0 66 29 1 #"\n"
1165 0 0 66 29 1 #"\n"
1166 0 0 17 3 40 #";phone-number : name directory -> number"
1167 0 0 66 29 1 #"\n"
1168 0 0 17 3 54 #";Given name and a-dir, finds the corresponding number."
1169 0 0 66 29 1 #"\n"
1170 0 0 17 3 41 #";Returns 0 if no number in the directory."
1171 0 0 66 29 1 #"\n"
1172 0 0 66 29 1 #"\n"
1173 0 0 22 3 1 #"("
1174 0 0 15 3 6 #"define"
1175 0 0 67 3 1 #" "
1176 0 0 22 3 1 #"("
1177 0 0 14 3 12 #"phone-number"
1178 0 0 67 3 1 #" "
1179 0 0 14 3 4 #"name"
1180 0 0 67 3 1 #" "
1181 0 0 14 3 5 #"a-dir"
1182 0 0 22 3 1 #")"
1183 0 0 66 29 1 #"\n"
1184 0 0 67 3 2 #"  "
1185 0 0 22 3 1 #"("
1186 0 0 15 3 4 #"cond"
1187 0 0 66 29 1 #"\n"
1188 0 0 67 3 4 #"    "
1189 0 0 22 3 2 #"[("
1190 0 0 14 3 6 #"empty?"
1191 0 0 67 3 1 #" "
1192 0 0 14 3 5 #"a-dir"
1193 0 0 22 3 1 #")"
1194 0 0 67 3 1 #" "
1195 0 0 20 3 1 #"0"
1196 0 0 67 3 1 #" "
1197 0 0 22 3 1 #"]"
1198 0 0 66 29 1 #"\n"
1199 0 0 67 3 4 #"    "
1200 0 0 22 3 2 #"[("
1201 0 0 14 3 8 #"symbol=?"
1202 0 0 66 3 1 #" "
1203 0 0 22 3 1 #"("
1204 0 0 14 3 11 #"record-name"
1205 0 0 66 3 1 #" "
1206 0 0 22 3 1 #"("
1207 0 0 14 3 5 #"first"
1208 0 0 66 3 1 #" "
1209 0 0 14 3 5 #"a-dir"
1210 0 0 22 3 2 #"))"
1211 0 0 66 3 1 #" "
1212 0 0 14 3 4 #"name"
1213 0 0 22 3 1 #")"
1214 0 0 66 29 1 #"\n"
1215 0 0 66 3 5 #"     "
1216 0 0 22 3 1 #"("
1217 0 0 14 3 13 #"record-number"
1218 0 0 66 3 1 #" "
1219 0 0 22 3 1 #"("
1220 0 0 14 3 5 #"first"
1221 0 0 66 3 1 #" "
1222 0 0 14 3 5 #"a-dir"
1223 0 0 22 3 3 #"))]"
1224 0 0 66 29 1 #"\n"
1225 0 0 66 3 4 #"    "
1226 0 0 22 3 1 #"["
1227 0 0 14 3 4 #"else"
1228 0 0 66 3 1 #" "
1229 0 0 22 3 1 #"("
1230 0 0 14 3 12 #"phone-number"
1231 0 0 66 3 1 #" "
1232 0 0 14 3 4 #"name"
1233 0 0 67 3 1 #" "
1234 0 0 22 3 1 #"("
1235 0 0 14 3 4 #"rest"
1236 0 0 67 3 1 #" "
1237 0 0 14 3 5 #"a-dir"
1238 0 0 22 3 5 #"))]))"
1239 0 0 66 29 1 #"\n"
1240 0 0 66 29 1 #"\n"
1241 0 0 22 3 1 #"("
1242 0 0 15 3 6 #"define"
1243 0 0 66 3 1 #" "
1244 0 0 14 3 5 #"list2"
1245 0 0 66 3 1 #" "
1246 0 0 22 3 1 #"("
1247 0 0 14 3 4 #"cons"
1248 0 0 66 3 1 #" "
1249 0 0 22 3 1 #"("
1250 0 0 14 3 11 #"make-record"
1251 0 0 66 3 1 #" "
1252 0 0 20 3 1 #"'"
1253 0 0 14 3 9 #"HsinyaLin"
1254 0 0 66 3 1 #" "
1255 0 0 20 3 10 #"6265939257"
1256 0 0 22 3 1 #")"
1257 0 0 66 3 1 #" "
1258 0 0 22 3 1 #"("
1259 0 0 14 3 4 #"cons"
1260 0 0 66 3 1 #" "
1261 0 0 22 3 1 #"("
1262 0 0 14 3 11 #"make-record"
1263 0 0 66 3 1 #" "
1264 0 0 20 3 1 #"'"
1265 0 0 14 3 9 #"RonRonLin"
1266 0 0 66 11 1 #" "
1267 0 0 20 3 10 #"6267157010"
1268 0 0 22 3 1 #")"
1269 0 0 66 3 1 #" "
1270 0 0 22 3 1 #"("
1271 0 0 14 3 4 #"cons"
1272 0 0 66 3 1 #" "
1273 0 0 22 3 1 #"("
1274 0 0 14 3 11 #"make-record"
1275 0 0 66 3 1 #" "
1276 0 0 20 3 1 #"'"
1277 0 0 14 3 8 #"TunaFish"
1278 0 0 66 3 1 #" "
1279 0 0 20 3 7 #"8888888"
1280 0 0 22 3 1 #")"
1281 0 0 66 3 1 #" "
1282 0 0 14 3 5 #"empty"
1283 0 0 22 3 4 #"))))"
1284 0 0 66 29 1 #"\n"
1285 0 0 66 29 1 #"\n"
1286 0 0 17 3 40 #";extract : inventory number -> inventory"
1287 0 0 66 29 1 #"\n"
1288 0 0 17 3 48 #";Given an-inv and price, it returns an inventory"
1289 0 0 66 29 1 #"\n"
1290 0 0 17 3 46 #";composed of inventory records (ir) which have"
1291 0 0 66 29 1 #"\n"
1292 0 0 17 3 27 #";prices greater than price."
1293 0 0 66 29 1 #"\n"
1294 0 0 17 3 1 #";"
1295 0 0 66 29 1 #"\n"
1296 0 0 17 3 9 #";Template"
1297 0 0 66 29 1 #"\n"
1298 0 0 17 3 31 #";(define (extract an-inv price)"
1299 0 0 66 29 1 #"\n"
1300 0 0 17 3 8 #";  (cond"
1301 0 0 66 29 1 #"\n"
1302 0 0 17 3 26 #";    [(empty? an-inv) ...]"
1303 0 0 66 29 1 #"\n"
1304 0 0 17 3 5 #";    "
1305 0 0 17 3 1 #"["
1306 0 0 17 3 3 #"..."
1307 0 0 17 3 47 #" (first an-inv) (extract (rest an-inv)) ...])) "
1308 0 0 66 29 1 #"\n"
1309 0 0 66 29 1 #"\n"
1310 0 0 22 3 1 #"("
1311 0 0 15 3 6 #"define"
1312 0 0 66 3 1 #" "
1313 0 0 22 3 1 #"("
1314 0 0 14 3 7 #"extract"
1315 0 0 66 3 1 #" "
1316 0 0 14 3 6 #"an-inv"
1317 0 0 66 3 1 #" "
1318 0 0 14 3 5 #"price"
1319 0 0 22 3 1 #")"
1320 0 0 66 29 1 #"\n"
1321 0 0 66 3 2 #"  "
1322 0 0 22 3 1 #"("
1323 0 0 15 3 4 #"cond"
1324 0 0 66 29 1 #"\n"
1325 0 0 66 3 4 #"    "
1326 0 0 22 3 2 #"[("
1327 0 0 14 3 6 #"empty?"
1328 0 0 66 3 1 #" "
1329 0 0 14 3 6 #"an-inv"
1330 0 0 22 3 1 #")"
1331 0 0 66 3 1 #" "
1332 0 0 14 3 5 #"empty"
1333 0 0 22 3 1 #"]"
1334 0 0 66 29 1 #"\n"
1335 0 0 66 3 4 #"    "
1336 0 0 22 3 2 #"[("
1337 0 0 14 3 1 #">"
1338 0 0 66 3 1 #" "
1339 0 0 22 3 1 #"("
1340 0 0 14 3 8 #"ir-price"
1341 0 0 66 3 1 #" "
1342 0 0 22 3 1 #"("
1343 0 0 14 3 5 #"first"
1344 0 0 66 3 1 #" "
1345 0 0 14 3 6 #"an-inv"
1346 0 0 22 3 2 #"))"
1347 0 0 66 3 1 #" "
1348 0 0 14 3 5 #"price"
1349 0 0 22 3 1 #")"
1350 0 0 66 29 1 #"\n"
1351 0 0 66 3 5 #"     "
1352 0 0 22 3 1 #"("
1353 0 0 14 3 4 #"cons"
1354 0 0 66 3 1 #" "
1355 0 0 22 3 1 #"("
1356 0 0 14 3 5 #"first"
1357 0 0 66 3 1 #" "
1358 0 0 14 3 6 #"an-inv"
1359 0 0 22 3 1 #")"
1360 0 0 66 3 1 #" "
1361 0 0 22 3 1 #"("
1362 0 0 14 3 7 #"extract"
1363 0 0 66 3 1 #" "
1364 0 0 22 3 1 #"("
1365 0 0 14 3 4 #"rest"
1366 0 0 66 3 1 #" "
1367 0 0 14 3 6 #"an-inv"
1368 0 0 22 3 1 #")"
1369 0 0 66 3 1 #" "
1370 0 0 14 3 5 #"price"
1371 0 0 22 3 3 #"))]"
1372 0 0 66 29 1 #"\n"
1373 0 0 66 3 4 #"    "
1374 0 0 22 3 1 #"["
1375 0 0 14 3 4 #"else"
1376 0 0 66 3 1 #" "
1377 0 0 22 3 1 #"("
1378 0 0 14 3 7 #"extract"
1379 0 0 66 3 1 #" "
1380 0 0 22 3 1 #"("
1381 0 0 14 3 4 #"rest"
1382 0 0 66 3 1 #" "
1383 0 0 14 3 6 #"an-inv"
1384 0 0 22 3 1 #")"
1385 0 0 66 3 1 #" "
1386 0 0 14 3 5 #"price"
1387 0 0 22 3 4 #")]))"
1388 0 0 66 3 1 #" "
1389 0 0 66 29 1 #"\n"
1390 0 0 66 29 1 #"\n"
1391 0 0 22 3 1 #"("
1392 0 0 15 3 6 #"define"
1393 0 0 66 3 1 #" "
1394 0 0 14 3 5 #"RAISE"
1395 0 0 66 3 1 #" "
1396 0 0 20 3 4 #"0.05"
1397 0 0 22 3 1 #")"
1398 0 0 66 29 1 #"\n"
1399 0 0 66 29 1 #"\n"
1400 0 0 17 3 38 #";raise-prices : inventory -> inventory"
1401 0 0 66 29 1 #"\n"
1402 0 0 17 3 51 #";Consumes an-inv and produces an inventory in which"
1403 0 0 66 29 1 #"\n"
1404 0 0 17 3 48 #";the price of each inventory record is increased"
1405 0 0 66 29 1 #"\n"
1406 0 0 17 3 18 #";by RAISE percent."
1407 0 0 66 29 1 #"\n"
1408 0 0 17 3 1 #";"
1409 0 0 66 29 1 #"\n"
1410 0 0 17 3 9 #";Template"
1411 0 0 66 29 1 #"\n"
1412 0 0 17 3 30 #";(define (raise-prices an-inv)"
1413 0 0 66 29 1 #"\n"
1414 0 0 17 3 8 #";  (cond"
1415 0 0 66 29 1 #"\n"
1416 0 0 17 3 19 #";    [(empty?) ...]"
1417 0 0 66 29 1 #"\n"
1418 0 0 17 3 5 #";    "
1419 0 0 17 3 1 #"["
1420 0 0 17 3 4 #"else"
1421 0 0 17 3 51 #" ... (first an-inv) (raise-prices (rest an-inv))]))"
1422 0 0 66 29 1 #"\n"
1423 0 0 17 3 1 #";"
1424 0 0 66 29 1 #"\n"
1425 0 0 22 3 1 #"("
1426 0 0 15 3 6 #"define"
1427 0 0 66 3 1 #" "
1428 0 0 22 3 1 #"("
1429 0 0 14 3 12 #"raise-prices"
1430 0 0 66 3 1 #" "
1431 0 0 14 3 6 #"an-inv"
1432 0 0 22 3 1 #")"
1433 0 0 66 29 1 #"\n"
1434 0 0 66 3 2 #"  "
1435 0 0 22 3 1 #"("
1436 0 0 15 3 4 #"cond"
1437 0 0 66 29 1 #"\n"
1438 0 0 66 3 4 #"    "
1439 0 0 22 3 2 #"[("
1440 0 0 14 3 6 #"empty?"
1441 0 0 66 3 1 #" "
1442 0 0 14 3 6 #"an-inv"
1443 0 0 22 3 1 #")"
1444 0 0 66 3 1 #" "
1445 0 0 14 3 5 #"empty"
1446 0 0 22 3 1 #"]"
1447 0 0 66 29 1 #"\n"
1448 0 0 66 3 4 #"    "
1449 0 0 22 3 1 #"["
1450 0 0 14 3 4 #"else"
1451 0 0 66 3 1 #" "
1452 0 0 22 3 1 #"("
1453 0 0 14 3 4 #"cons"
1454 0 0 66 3 1 #" "
1455 0 0 22 3 1 #"("
1456 0 0 14 3 7 #"make-ir"
1457 0 0 66 3 1 #" "
1458 0 0 66 29 1 #"\n"
1459 0 0 66 3 17 #"                 "
1460 0 0 22 3 1 #"("
1461 0 0 14 3 7 #"ir-name"
1462 0 0 66 3 1 #" "
1463 0 0 22 3 1 #"("
1464 0 0 14 3 5 #"first"
1465 0 0 66 3 1 #" "
1466 0 0 14 3 6 #"an-inv"
1467 0 0 22 3 2 #"))"
1468 0 0 66 29 1 #"\n"
1469 0 0 66 3 17 #"                 "
1470 0 0 22 3 1 #"("
1471 0 0 14 3 1 #"*"
1472 0 0 66 3 1 #" "
1473 0 0 22 3 1 #"("
1474 0 0 14 3 8 #"ir-price"
1475 0 0 66 3 1 #" "
1476 0 0 22 3 1 #"("
1477 0 0 14 3 5 #"first"
1478 0 0 66 3 1 #" "
1479 0 0 14 3 6 #"an-inv"
1480 0 0 22 3 2 #"))"
1481 0 0 66 3 1 #" "
1482 0 0 22 3 1 #"("
1483 0 0 14 3 1 #"+"
1484 0 0 66 3 1 #" "
1485 0 0 20 3 1 #"1"
1486 0 0 66 3 1 #" "
1487 0 0 14 3 5 #"RAISE"
1488 0 0 22 3 2 #"))"
1489 0 0 66 29 1 #"\n"
1490 0 0 66 3 17 #"                 "
1491 0 0 22 3 1 #"("
1492 0 0 14 3 8 #"ir-image"
1493 0 0 66 3 1 #" "
1494 0 0 22 3 1 #"("
1495 0 0 14 3 5 #"first"
1496 0 0 66 3 1 #" "
1497 0 0 14 3 6 #"an-inv"
1498 0 0 22 3 3 #")))"
1499 0 0 66 29 1 #"\n"
1500 0 0 66 3 16 #"                "
1501 0 0 22 3 1 #"("
1502 0 0 14 3 12 #"raise-prices"
1503 0 0 66 3 1 #" "
1504 0 0 22 3 1 #"("
1505 0 0 14 3 4 #"rest"
1506 0 0 66 3 1 #" "
1507 0 0 14 3 6 #"an-inv"
1508 0 0 22 3 6 #")))]))"
1509 0 0 66 29 1 #"\n"
1510 0 0 66 29 1 #"\n"
1511 0 0 17 3 26 #";Contract, Purpose, Header"
1512 0 0 66 29 1 #"\n"
1513 0 0 17 3 39 #";recall : symbol inventory -> inventory"
1514 0 0 66 29 1 #"\n"
1515 0 0 17 3 50 #";Removes the inventory record (ir) associated with"
1516 0 0 66 29 1 #"\n"
1517 0 0 17 3 23 #";ty from the inventory."
1518 0 0 66 29 1 #"\n"
1519 0 0 66 29 1 #"\n"
1520 0 0 17 3 30 #";(define (raise-prices an-inv)"
1521 0 0 66 29 1 #"\n"
1522 0 0 17 3 8 #";  (cond"
1523 0 0 66 29 1 #"\n"
1524 0 0 17 3 19 #";    [(empty?) ...]"
1525 0 0 66 29 1 #"\n"
1526 0 0 17 3 5 #";    "
1527 0 0 17 3 1 #"["
1528 0 0 17 3 55 #"else ... (first an-inv) (raise-prices (rest an-inv))]))"
1529 0 0 66 29 1 #"\n"
1530 0 0 66 29 1 #"\n"
1531 0 0 22 3 1 #"("
1532 0 0 15 3 6 #"define"
1533 0 0 66 3 1 #" "
1534 0 0 22 3 1 #"("
1535 0 0 14 3 6 #"recall"
1536 0 0 66 3 1 #" "
1537 0 0 14 3 2 #"ty"
1538 0 0 66 3 1 #" "
1539 0 0 14 3 6 #"an-inv"
1540 0 0 22 3 1 #")"
1541 0 0 66 29 1 #"\n"
1542 0 0 66 3 2 #"  "
1543 0 0 22 3 1 #"("
1544 0 0 15 3 4 #"cond"
1545 0 0 66 29 1 #"\n"
1546 0 0 66 3 4 #"    "
1547 0 0 22 3 2 #"[("
1548 0 0 14 3 6 #"empty?"
1549 0 0 66 3 1 #" "
1550 0 0 14 3 6 #"an-inv"
1551 0 0 22 3 1 #")"
1552 0 0 66 3 1 #" "
1553 0 0 14 3 5 #"empty"
1554 0 0 22 3 1 #"]"
1555 0 0 66 29 1 #"\n"
1556 0 0 66 3 4 #"    "
1557 0 0 22 3 2 #"[("
1558 0 0 14 3 8 #"symbol=?"
1559 0 0 66 3 1 #" "
1560 0 0 22 3 1 #"("
1561 0 0 14 3 7 #"ir-name"
1562 0 0 66 3 1 #" "
1563 0 0 22 3 1 #"("
1564 0 0 14 3 5 #"first"
1565 0 0 66 3 1 #" "
1566 0 0 14 3 6 #"an-inv"
1567 0 0 22 3 2 #"))"
1568 0 0 66 3 1 #" "
1569 0 0 14 3 2 #"ty"
1570 0 0 22 3 1 #")"
1571 0 0 66 3 1 #" "
1572 0 0 22 3 1 #"("
1573 0 0 14 3 6 #"recall"
1574 0 0 66 3 1 #" "
1575 0 0 14 3 2 #"ty"
1576 0 0 66 3 1 #" "
1577 0 0 22 3 1 #"("
1578 0 0 14 3 4 #"rest"
1579 0 0 66 3 1 #" "
1580 0 0 14 3 6 #"an-inv"
1581 0 0 22 3 3 #"))]"
1582 0 0 66 29 1 #"\n"
1583 0 0 66 3 4 #"    "
1584 0 0 22 3 1 #"["
1585 0 0 14 3 4 #"else"
1586 0 0 66 3 1 #" "
1587 0 0 22 3 1 #"("
1588 0 0 14 3 4 #"cons"
1589 0 0 66 3 1 #" "
1590 0 0 22 3 1 #"("
1591 0 0 14 3 5 #"first"
1592 0 0 66 3 1 #" "
1593 0 0 14 3 6 #"an-inv"
1594 0 0 22 3 1 #")"
1595 0 0 66 3 1 #" "
1596 0 0 22 3 1 #"("
1597 0 0 14 3 6 #"recall"
1598 0 0 66 3 1 #" "
1599 0 0 14 3 2 #"ty"
1600 0 0 66 3 1 #" "
1601 0 0 22 3 1 #"("
1602 0 0 14 3 4 #"rest"
1603 0 0 66 3 1 #" "
1604 0 0 14 3 6 #"an-inv"
1605 0 0 22 3 6 #")))]))"
1606 0 0 66 29 1 #"\n"
1607 0 0 66 29 1 #"\n"
1608 0 0 17 3 1 #";"
1609 0 0 17 3 10 #"substitute"
1610 0 0 17 3 1 #" "
1611 0 0 17 3 1 #":"
1612 0 0 17 3 1 #" "
1613 0 0 17 3 6 #"symbol"
1614 0 0 17 3 30 #" symbol inventory -> inventory"
1615 0 0 66 29 1 #"\n"
1616 0 0 17 3 1 #";"
1617 0 0 17 3 5 #"Given"
1618 0 0 17 3 1 #" "
1619 0 0 17 3 3 #"old"
1620 0 0 17 3 1 #","
1621 0 0 17 3 1 #" "
1622 0 0 17 3 3 #"new"
1623 0 0 17 3 1 #","
1624 0 0 17 3 1 #" "
1625 0 0 17 3 3 #"and"
1626 0 0 17 3 1 #" "
1627 0 0 17 3 6 #"an-inv"
1628 0 0 17 3 1 #","
1629 0 0 17 3 20 #" replace the name of"
1630 0 0 66 29 1 #"\n"
1631 0 0 17 3 1 #";"
1632 0 0 17 3 2 #"an"
1633 0 0 17 3 1 #" "
1634 0 0 17 3 9 #"inventory"
1635 0 0 17 3 1 #" "
1636 0 0 17 3 7 #"record "
1637 0 0 17 3 4 #"with"
1638 0 0 17 3 24 #" name old with name new."
1639 0 0 66 29 1 #"\n"
1640 0 0 17 3 1 #";"
1641 0 0 66 29 1 #"\n"
1642 0 0 66 29 1 #"\n"
1643 0 0 22 3 1 #"("
1644 0 0 15 3 6 #"define"
1645 0 0 67 3 1 #" "
1646 0 0 22 3 1 #"("
1647 0 0 14 3 10 #"substitute"
1648 0 0 66 3 1 #" "
1649 0 0 14 3 3 #"old"
1650 0 0 66 3 1 #" "
1651 0 0 14 3 3 #"new"
1652 0 0 67 3 1 #" "
1653 0 0 14 3 6 #"an-inv"
1654 0 0 22 3 1 #")"
1655 0 0 66 29 1 #"\n"
1656 0 0 67 3 1 #" "
1657 0 0 22 3 1 #"("
1658 0 0 15 3 4 #"cond"
1659 0 0 66 29 1 #"\n"
1660 0 0 67 3 3 #"   "
1661 0 0 22 3 2 #"[("
1662 0 0 14 3 6 #"empty?"
1663 0 0 66 3 1 #" "
1664 0 0 14 3 6 #"an-inv"
1665 0 0 22 3 1 #")"
1666 0 0 67 3 1 #" "
1667 0 0 14 3 5 #"empty"
1668 0 0 22 3 1 #"]"
1669 0 0 66 29 1 #"\n"
1670 0 0 67 3 3 #"   "
1671 0 0 22 3 2 #"[("
1672 0 0 14 3 8 #"symbol=?"
1673 0 0 66 3 1 #" "
1674 0 0 22 3 1 #"("
1675 0 0 14 3 7 #"ir-name"
1676 0 0 66 3 1 #" "
1677 0 0 22 3 1 #"("
1678 0 0 14 3 5 #"first"
1679 0 0 66 3 1 #" "
1680 0 0 14 3 6 #"an-inv"
1681 0 0 22 3 2 #"))"
1682 0 0 66 3 1 #" "
1683 0 0 14 3 3 #"old"
1684 0 0 22 3 1 #")"
1685 0 0 66 29 1 #"\n"
1686 0 0 66 3 4 #"    "
1687 0 0 22 3 1 #"("
1688 0 0 14 3 4 #"cons"
1689 0 0 66 3 1 #" "
1690 0 0 22 3 1 #"("
1691 0 0 14 3 7 #"make-ir"
1692 0 0 66 3 1 #" "
1693 0 0 14 3 3 #"new"
1694 0 0 66 29 1 #"\n"
1695 0 0 66 3 19 #"                   "
1696 0 0 22 3 1 #"("
1697 0 0 14 3 8 #"ir-price"
1698 0 0 66 3 1 #" "
1699 0 0 22 3 1 #"("
1700 0 0 14 3 5 #"first"
1701 0 0 66 3 1 #" "
1702 0 0 14 3 6 #"an-inv"
1703 0 0 22 3 2 #"))"
1704 0 0 66 29 1 #"\n"
1705 0 0 66 3 19 #"                   "
1706 0 0 22 3 1 #"("
1707 0 0 14 3 8 #"ir-image"
1708 0 0 66 3 1 #" "
1709 0 0 22 3 1 #"("
1710 0 0 14 3 5 #"first"
1711 0 0 66 3 1 #" "
1712 0 0 14 3 6 #"an-inv"
1713 0 0 22 3 3 #")))"
1714 0 0 66 29 1 #"\n"
1715 0 0 66 3 10 #"          "
1716 0 0 22 3 1 #"("
1717 0 0 14 3 10 #"substitute"
1718 0 0 66 3 1 #" "
1719 0 0 14 3 3 #"old"
1720 0 0 66 3 1 #" "
1721 0 0 14 3 3 #"new"
1722 0 0 66 3 1 #" "
1723 0 0 22 3 1 #"("
1724 0 0 14 3 4 #"rest"
1725 0 0 66 3 1 #" "
1726 0 0 14 3 6 #"an-inv"
1727 0 0 22 3 4 #")))]"
1728 0 0 66 29 1 #"\n"
1729 0 0 66 3 3 #"   "
1730 0 0 22 3 1 #"["
1731 0 0 14 3 4 #"else"
1732 0 0 67 3 1 #" "
1733 0 0 22 3 1 #"("
1734 0 0 14 3 4 #"cons"
1735 0 0 67 3 1 #" "
1736 0 0 22 3 1 #"("
1737 0 0 14 3 5 #"first"
1738 0 0 67 3 1 #" "
1739 0 0 14 3 6 #"an-inv"
1740 0 0 22 3 1 #")"
1741 0 0 66 29 1 #"\n"
1742 0 0 66 3 15 #"               "
1743 0 0 22 3 1 #"("
1744 0 0 14 3 10 #"substitute"
1745 0 0 66 3 1 #" "
1746 0 0 14 3 3 #"old"
1747 0 0 66 3 1 #" "
1748 0 0 14 3 3 #"new"
1749 0 0 67 3 1 #" "
1750 0 0 22 3 1 #"("
1751 0 0 14 3 4 #"rest"
1752 0 0 67 3 1 #" "
1753 0 0 14 3 6 #"an-inv"
1754 0 0 22 3 6 #")))]))"
1755 0 0 66 29 1 #"\n"
1756 0 0 66 29 1 #"\n"
1757 0           0