Commit Diff
Diff:
/dev/null
12687dd954a34abd5498445b00336f835656eeec
Commit:
12687dd954a34abd5498445b00336f835656eeec (main)
Tree:
da1cfd6183e6da20cf4e1eb1c959b0c88a46588c
Author:
jrmu <jrmu@ircnow.org>
Committer:
jrmu <jrmu@ircnow.org>
Date:
Fri Aug 4 04:58:02 2023 UTC
Message:
Import sources
blob - /dev/null
blob + 7b992431b8d460ed7f72128a4fc340dc0b3a9045 (mode 644)
--- /dev/null
+++ #22.3.1#1#
@@ -0,0 +1,698 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 76 0 1 #"\0"
+0 75 1 #"\0"
+0 12 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
+#"Standard\0"
+0 75 11 #" Monospace\0"
+0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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 2 1
+#"\0"
+0 -1 1 #"\0"
+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 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41
+#"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38
+#"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34
+#"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 24 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 24 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 17 1
+#"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+24 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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
+19 1 #"\0"
+0 -1 1 #"\0"
+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
+ 0 424 0 17 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 66 29 1 #"\n"
+0 0 17 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 66 29 1 #"\n"
+0 0 24 3 7 #"#reader"
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 29 #"\"htdp-intermediate-reader.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"lang\""
+0 0 22 3 3 #")(("
+0 0 14 3 7 #"modname"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"|#22.3|"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"read-case-sensitive"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#t"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"teachpacks"
+0 0 66 3 1 #" "
+0 0 22 3 2 #"(("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 9 #"\"draw.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 10 #"\"arrow.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 8 #"\"gui.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 3 #")))"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"htdp-settings"
+0 0 66 3 1 #" "
+0 0 22 3 2 #"#("
+0 0 20 3 2 #"#t"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"constructor"
+0 0 66 3 1 #" "
+0 0 14 3 17 #"repeating-decimal"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#f"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#t"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"none"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#f"
+0 0 66 3 1 #" "
+0 0 22 3 2 #"(("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 9 #"\"draw.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 10 #"\"arrow.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 8 #"\"gui.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 11 #"\"teachpack\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"htdp\""
+0 0 22 3 5 #")))))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"change-text"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"event"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 12 #"main-message"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"text-contents"
+0 0 66 3 1 #" "
+0 0 14 3 9 #"main-text"
+0 0 22 3 3 #")))"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"change-choice"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"event"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"choice-index"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 66 3 1 #" "
+0 0 19 11 15 #"\"Please make a "
+0 0 19 3 10 #"selection\""
+0 0 22 3 2 #")]"
+0 0 74 29 1 #"\n"
+0 0 74 3 0 #""
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"choice-index"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 66 3 1 #" "
+0 0 19 11 20 #"\"Let's shop another "
+0 0 19 3 5 #"time\""
+0 0 22 3 2 #")]"
+0 0 74 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"choice-index"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"2"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 66 3 1 #" "
+0 0 19 11 17 #"\"There's nothing "
+0 0 19 3 18 #"interesting on TV\""
+0 0 22 3 2 #")]"
+0 0 74 29 1 #"\n"
+0 0 74 3 0 #""
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"choice-index"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"3"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 66 3 1 #" "
+0 0 19 11 13 #"\"Sure, we're "
+0 0 19 3 23 #"programming right now!\""
+0 0 22 3 2 #")]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"choice-index"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"4"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"draw-message"
+0 0 66 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 66 3 1 #" "
+0 0 19 3 19 #"\"Maybe in 2 hours!\""
+0 0 22 3 4 #")]))"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 17 #"close-main-window"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"event"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"hide-window"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-window"
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 12 #"main-message"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"make-message"
+0 0 66 3 1 #" "
+0 0 19 3 27 #"\"Hi, nice to meet you too!\""
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 74 3 1 #" "
+0 0 14 3 5 #"query"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"make-message"
+0 0 74 3 1 #" "
+0 0 19 3 1 #"\""
+0 0 19 3 4 #"What"
+0 0 19 3 1 #" "
+0 0 19 3 5 #"would"
+0 0 19 3 1 #" "
+0 0 19 3 22 #"you like to do today?\""
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 74 3 1 #" "
+0 0 14 3 9 #"main-text"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-text"
+0 0 74 3 1 #" "
+0 0 19 3 11 #"\"Hi Aaron!\""
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 74 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"make-message"
+0 0 74 3 1 #" "
+0 0 19 3 2 #"\"\""
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 74 3 0 #""
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 74 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-choice"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 74 3 1 #" "
+0 0 19 3 18 #"\"Make a selection\""
+0 0 74 29 1 #"\n"
+0 0 74 3 39 #" "
+0 0 19 3 13 #"\"Go Shopping\""
+0 0 74 29 1 #"\n"
+0 0 74 3 39 #" "
+0 0 19 3 10 #"\"Watch TV\""
+0 0 74 29 1 #"\n"
+0 0 74 3 39 #" "
+0 0 19 3 16 #"\"Program Scheme\""
+0 0 74 29 1 #"\n"
+0 0 74 3 39 #" "
+0 0 19 3 7 #"\"Sleep\""
+0 0 22 3 3 #")))"
+0 0 74 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"main-window"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"create-window"
+0 0 74 29 1 #"\n"
+0 0 66 3 3 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-button"
+0 0 66 3 1 #" "
+0 0 19 3 14 #"\"Close Window\""
+0 0 66 3 1 #" "
+0 0 14 3 17 #"close-main-window"
+0 0 22 3 2 #"))"
+0 0 74 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 74 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-button"
+0 0 74 3 1 #" "
+0 0 19 3 13 #"\"Change Text\""
+0 0 74 3 1 #" "
+0 0 14 3 11 #"change-text"
+0 0 22 3 1 #")"
+0 0 74 29 1 #"\n"
+0 0 66 3 15 #" "
+0 0 14 3 9 #"main-text"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 66 3 1 #" "
+0 0 14 3 12 #"main-message"
+0 0 22 3 1 #")"
+0 0 74 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 74 3 1 #" "
+0 0 14 3 5 #"query"
+0 0 22 3 1 #")"
+0 0 74 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 74 3 1 #" "
+0 0 14 3 11 #"main-choice"
+0 0 74 29 1 #"\n"
+0 0 66 3 15 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-button"
+0 0 74 3 1 #" "
+0 0 19 3 5 #"\"Go!\""
+0 0 70 3 1 #" "
+0 0 14 3 13 #"change-choice"
+0 0 22 3 2 #"))"
+0 0 70 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 70 3 1 #" "
+0 0 14 3 19 #"main-choice-message"
+0 0 22 3 4 #"))))"
+0 0 70 29 1 #"\n"
+0 0 70 3 0 #""
+0 0 66 3 2 #" "
+0 0 70 29 1 #"\n"
+0 0 70 3 0 #""
+0 0 66 3 2 #" "
+0 0
blob - /dev/null
blob + 77d3becd988f1f23737c1b4e9c60fedc4988d1e4 (mode 644)
--- /dev/null
+++ #27.3.5#1#
@@ -0,0 +1,1139 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 80 0 1 #"\0"
+0 75 1 #"\0"
+0 12 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
+#"Standard\0"
+0 75 11 #" Monospace\0"
+0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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 2 1
+#"\0"
+0 -1 1 #"\0"
+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 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41
+#"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38
+#"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34
+#"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 19
+1 #"\0"
+0 -1 1 #"\0"
+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 24 1
+#"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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 24 1
+#"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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
+24 1 #"\0"
+0 -1 1 #"\0"
+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
+0 1 #"\0"
+0 75 11 #" Monospace\0"
+0.0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 17 1 #"\0"
+0 -1 1 #"\0"
+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
+ 0 823 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 393
+(
+ #"#reader(lib \"htdp-intermediate-lambda-reader.ss\" \"lang\")((modnam"
+ #"e |#27.3|) (read-case-sensitive #t) (teachpacks ((lib \"draw.ss\" \""
+ #"teachpack\" \"htdp\") (lib \"arrow.ss\" \"teachpack\" \"htdp\") (lib"
+ #" \"gui.ss\" \"teachpack\" \"htdp\"))) (htdp-settings #(#t constructo"
+ #"r repeating-decimal #f #t none #f ((lib \"draw.ss\" \"teachpack\" \""
+ #"htdp\") (lib \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\" \""
+ #"teachpack\" \"htdp\")))))"
+) 0 0 4 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 1 #"A"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"table"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"is"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"a"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"function"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"that"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"consumes"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"only"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"natural"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"numbers"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"between"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"0"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 9 #"inclusive"
+0 0 17 3 1 #")"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"VL"
+0 0 17 11 1 #" "
+0 0 17 3 33 #"(exclusive) and returns a number."
+0 0 64 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 64 29 1 #"\n"
+0 0 17 3 32 #";Formally, a table is a function"
+0 0 64 29 1 #"\n"
+0 0 17 3 37 #";g : N[>=0 and <= (- VL 1)] -> number"
+0 0 64 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 64 29 1 #"\n"
+0 0 17 3 72
+(
+ #";The root of a table is the value x such that (g x) is the closest t"
+ #"o 0."
+) 0 0 64 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 64 29 1 #"\n"
+0 0 17 3 40 #";find-root-linear : (N -> number) N -> N"
+0 0 64 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 5 #"Given"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"a-table"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 5 #"table"
+0 0 17 3 2 #") "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"index"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"i"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 4 #"find"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"root"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"of"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"a"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"table."
+0 0 17 3 2 #" "
+0 0 17 3 16 #"find-root-linear"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"finds"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 11 1 #" "
+0 0 17 3 48 #"root using structural induction (linear search)."
+0 0 64 29 1 #"\n"
+0 0 64 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 16 #"find-root-linear"
+0 0 64 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 1 #")"
+0 0 64 29 1 #"\n"
+0 0 64 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 64 29 1 #"\n"
+0 0 64 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 5 #"zero?"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 1 #")"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 1 #"]"
+0 0 64 29 1 #"\n"
+0 0 64 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 5 #"local"
+0 0 64 3 1 #" "
+0 0 22 3 2 #"(("
+0 0 15 3 6 #"define"
+0 0 64 3 1 #" "
+0 0 14 3 9 #"a-table-i"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 64 3 18 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 64 3 1 #" "
+0 0 14 3 12 #"root-of-rest"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 16 #"find-root-linear"
+0 0 64 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sub1"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 4 #"))))"
+0 0 64 29 1 #"\n"
+0 0 64 3 12 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 64 29 1 #"\n"
+0 0 64 3 14 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 2 #"<="
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 64 3 1 #" "
+0 0 14 3 9 #"a-table-i"
+0 0 22 3 1 #")"
+0 0 64 29 1 #"\n"
+0 0 64 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 14 3 12 #"root-of-rest"
+0 0 22 3 3 #")))"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"i"
+0 0 22 3 1 #"]"
+0 0 64 29 1 #"\n"
+0 0 64 3 14 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 64 3 1 #" "
+0 0 14 3 12 #"root-of-rest"
+0 0 22 3 6 #"]))]))"
+0 0 64 29 1 #"\n"
+0 0 64 3 0 #""
+0 0 64 29 1 #"\n"
+0 0 64 3 0 #""
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"t"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 22 3 1 #")"
+0 0 64 29 1 #"\n"
+0 0 64 3 2 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 64 3 1 #" "
+0 0 20 3 1 #"3"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"sin"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 22 3 2 #"))"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 64 3 1 #" "
+0 0 20 3 1 #"5"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 64 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 64 3 1 #" "
+0 0 20 3 2 #"-1"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sqrt"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 64 3 5 #" "
+0 0 20 3 1 #"3"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 64 29 1 #"\n"
+0 0 17 3 19 #";find-root-discrete"
+0 0 17 3 25 #" : (N -> number) N N -> N"
+0 0 64 29 1 #"\n"
+0 0 17 3 6 #";Given"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"a-table"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 4 #"left"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"right"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 4 #"find"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"a"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"root"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"of"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"table"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"using"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"binary"
+0 0 17 3 7 #" search"
+0 0 17 3 1 #" "
+0 0 17 3 10 #"generative"
+0 0 17 11 1 #" "
+0 0 17 3 83
+(
+ #"recursion. If there are multiple roots, only the root closest to ze"
+ #"ro is returned."
+) 0 0 64 29 1 #"\n"
+0 0 17 3 12 #";Termination"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"Argument:"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"The"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"interval"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"of"
+0 0 17 3 1 #" "
+0 0 17 3 18 #"find-root-discrete"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"decreases"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"by"
+0 0 17 3 5 #" half"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"each"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"time"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"until"
+0 0 17 11 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"interval"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"size"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"is"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"only"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"1."
+0 0 17 3 2 #" "
+0 0 17 3 4 #"Once"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"this"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"occurs"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 18 #"find-root-discrete"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"either"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"returns"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"left"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"or"
+0 0 17 11 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 67
+#"right index as the root. Hence, find-root-discrete must terminate."
+0 0 64 29 1 #"\n"
+0 0 17 3 17 #";midpoint : Given"
+0 0 17 3 71
+(
+ #" left and right, determine the midpoint rounded to the nearest integ"
+ #"er."
+) 0 0 64 29 1 #"\n"
+0 0 17 3 44 #";No assumption about a-table being monotonic"
+0 0 64 29 1 #"\n"
+0 0 64 29 1 #"\n"
+0 0 63 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"find-root-discrete2"
+0 0 63 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 1 #")"
+0 0 63 29 1 #"\n"
+0 0 63 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 63 29 1 #"\n"
+0 0 63 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"-"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #")"
+0 0 63 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 63 3 1 #" "
+0 0 64 3 1 #" "
+0 0 63 29 1 #"\n"
+0 0 63 3 5 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 63 29 1 #"\n"
+0 0 63 3 7 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 2 #"<="
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 2 #"))"
+0 0 63 29 1 #"\n"
+0 0 63 3 12 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 3 #")))"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #"]"
+0 0 63 29 1 #"\n"
+0 0 63 3 7 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 3 #"])]"
+0 0 63 29 1 #"\n"
+0 0 63 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 5 #"local"
+0 0 63 3 1 #" "
+0 0 22 3 2 #"(("
+0 0 15 3 6 #"define"
+0 0 63 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 63 29 1 #"\n"
+0 0 63 3 20 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"round"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 63 29 1 #"\n"
+0 0 63 3 30 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"/"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"-"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #")"
+0 0 63 3 1 #" "
+0 0 20 3 1 #"2"
+0 0 22 3 4 #"))))"
+0 0 63 29 1 #"\n"
+0 0 63 3 18 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 63 3 1 #" "
+0 0 14 3 14 #"left-side-root"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 63 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 63 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 22 3 2 #"))"
+0 0 63 29 1 #"\n"
+0 0 63 3 18 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 63 3 1 #" "
+0 0 14 3 15 #"right-side-root"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 63 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 3 #")))"
+0 0 63 29 1 #"\n"
+0 0 63 3 12 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 63 3 14 #" "
+0 0 63 29 1 #"\n"
+0 0 63 3 14 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 2 #"<="
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 14 #"left-side-root"
+0 0 22 3 2 #"))"
+0 0 63 29 1 #"\n"
+0 0 63 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 63 3 1 #" "
+0 0 14 3 15 #"right-side-root"
+0 0 22 3 3 #")))"
+0 0 63 3 1 #" "
+0 0 14 3 14 #"left-side-root"
+0 0 22 3 1 #"]"
+0 0 63 29 1 #"\n"
+0 0 63 3 14 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 63 3 1 #" "
+0 0 14 3 15 #"right-side-root"
+0 0 22 3 6 #"]))]))"
+0 0 63 29 1 #"\n"
+0 0 63 29 1 #"\n"
+0 0 77 29 1 #"\n"
+0 0 77 29 1 #"\n"
+0 0 17 3 44 #";find-root-discrete : (N -> number) N N -> N"
+0 0 77 29 1 #"\n"
+0 0 17 3 6 #";Given"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"a-table"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 4 #"left"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"right"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 4 #"find"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"a"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"root "
+0 0 17 3 2 #"of"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"table"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"using"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"binary"
+0 0 17 3 7 #" search"
+0 0 17 3 1 #" "
+0 0 17 3 10 #"generative"
+0 0 17 11 1 #" "
+0 0 17 3 83
+(
+ #"recursion. If there are multiple roots, only the root closest to ze"
+ #"ro is returned."
+) 0 0 77 29 1 #"\n"
+0 0 17 3 12 #";Termination"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"Argument:"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"The"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"interval"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"of"
+0 0 17 3 1 #" "
+0 0 17 3 18 #"find-root-discrete"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"decreases"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"by"
+0 0 17 3 5 #" half"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"each"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"time"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"until"
+0 0 17 11 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"interval"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"size"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"is"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"only"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"1."
+0 0 17 3 2 #" "
+0 0 17 3 4 #"Once"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"this"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"occurs"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 18 #"find-root-discrete"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"either"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"returns"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"left"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"or"
+0 0 17 11 1 #" "
+0 0 17 3 71
+(
+ #"the right index as the root. Hence, find-root-discrete must termina"
+ #"te."
+) 0 0 77 29 1 #"\n"
+0 0 17 3 88
+(
+ #";midpoint : Given left and right, determine the midpoint rounded to "
+ #"the nearest integer."
+) 0 0 77 29 1 #"\n"
+0 0 17 3 70
+(
+ #";ASSUMPTION : a-table is monotonic increasing or monotonic decreasin"
+ #"g."
+) 0 0 77 29 1 #"\n"
+0 0 77 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 77 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 77 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 1 #")"
+0 0 77 29 1 #"\n"
+0 0 77 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 5 #"local"
+0 0 77 3 1 #" "
+0 0 22 3 2 #"(("
+0 0 15 3 6 #"define"
+0 0 77 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 77 29 1 #"\n"
+0 0 77 3 12 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"round"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 77 29 1 #"\n"
+0 0 77 3 22 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"/"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"-"
+0 0 77 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #")"
+0 0 77 3 1 #" "
+0 0 20 3 1 #"2"
+0 0 22 3 5 #")))))"
+0 0 77 29 1 #"\n"
+0 0 77 3 4 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 77 29 1 #"\n"
+0 0 77 3 6 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"-"
+0 0 77 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #")"
+0 0 77 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 77 3 1 #" "
+0 0 77 29 1 #"\n"
+0 0 77 3 7 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 77 29 1 #"\n"
+0 0 77 3 9 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 2 #"<="
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 2 #"))"
+0 0 77 29 1 #"\n"
+0 0 77 3 14 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"abs"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 3 #")))"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #"]"
+0 0 77 29 1 #"\n"
+0 0 77 3 9 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 77 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 3 #"])]"
+0 0 77 29 1 #"\n"
+0 0 77 3 6 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 2 #"or"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"<="
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 1 #")"
+0 0 77 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 22 3 2 #"))"
+0 0 77 29 1 #"\n"
+0 0 77 3 11 #" "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"<="
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 22 3 1 #")"
+0 0 77 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"a-table"
+0 0 77 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 22 3 3 #")))"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 64 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 14 3 4 #"left"
+0 0 64 11 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 22 3 2 #")]"
+0 0 77 29 1 #"\n"
+0 0 77 3 6 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 77 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 64 3 1 #" "
+0 0 14 3 7 #"a-table"
+0 0 64 3 1 #" "
+0 0 14 3 8 #"midpoint"
+0 0 64 3 1 #" "
+0 0 14 3 5 #"right"
+0 0 22 3 5 #")])))"
+0 0 64 29 1 #"\n"
+0 0 64 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 4 #"time"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 16 #"find-root-linear"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"t"
+0 0 64 3 1 #" "
+0 0 20 3 5 #"30000"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 4 #"time"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"find-root-discrete2"
+0 0 63 3 1 #" "
+0 0 14 3 1 #"t"
+0 0 63 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 63 3 1 #" "
+0 0 20 3 5 #"30000"
+0 0 22 3 2 #"))"
+0 0 64 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 4 #"time"
+0 0 64 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 18 #"find-root-discrete"
+0 0 64 3 1 #" "
+0 0 14 3 1 #"t"
+0 0 64 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 64 3 1 #" "
+0 0 20 3 5 #"30000"
+0 0 22 3 2 #"))"
+0 0
blob - /dev/null
blob + 0e50021428632694a575798a4bc6ad8fc447c23b (mode 644)
--- /dev/null
+++ #30.1.1#1#
@@ -0,0 +1,399 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 69 0 1 #"\0"
+0 75 1 #"\0"
+0 12 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
+#"Standard\0"
+0 75 11 #" Monospace\0"
+0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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 2 1
+#"\0"
+0 -1 1 #"\0"
+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 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41
+#"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38
+#"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34
+#"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 17 1
+#"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+ 0 138 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 382
+(
+ #"#reader(lib \"htdp-advanced-reader.ss\" \"lang\")((modname |#30.1|) "
+ #"(read-case-sensitive #t) (teachpacks ((lib \"draw.ss\" \"teachpack\""
+ #" \"htdp\") (lib \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\""
+ #" \"teachpack\" \"htdp\"))) (htdp-settings #(#t constructor repeating"
+ #"-decimal #t #t none #f ((lib \"draw.ss\" \"teachpack\" \"htdp\") (li"
+ #"b \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\" \"teachpack\""
+ #" \"htdp\")))))"
+) 0 0 4 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 19 #"relative-2-absolute"
+0 0 17 3 1 #" "
+0 0 17 3 1 #":"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 35 #"listof numbers) -> (listof numbers)"
+0 0 63 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 7 #"Convert"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"alon"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"into"
+0 0 17 3 1 #" "
+0 0 17 3 8 #"absolute"
+0 0 17 3 1 #" "
+0 0 17 3 10 #"distances."
+0 0 17 3 2 #" "
+0 0 17 3 3 #"The"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"first"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"element"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"is"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 33 #"first alon) away from the origin."
+0 0 63 29 1 #"\n"
+0 0 63 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"relative-2-absolute"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 1 #")"
+0 0 63 29 1 #"\n"
+0 0 63 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 63 29 1 #"\n"
+0 0 63 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 1 #")"
+0 0 63 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 63 29 1 #"\n"
+0 0 63 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 1 #")"
+0 0 63 29 1 #"\n"
+0 0 63 3 16 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"add-to-each"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 1 #")"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"relative-2-absolute"
+0 0 63 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 63 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 7 #"))))]))"
+0 0 63 29 1 #"\n"
+0 0 63 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 62 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"add-to-each"
+0 0 62 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 62 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 1 #")"
+0 0 63 29 1 #"\n"
+0 0 62 3 2 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"map"
+0 0 62 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 62 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"x"
+0 0 22 3 1 #")"
+0 0 62 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 62 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 62 3 1 #" "
+0 0 14 3 1 #"x"
+0 0 22 3 2 #"))"
+0 0 62 3 1 #" "
+0 0 14 3 4 #"alon"
+0 0 22 3 2 #"))"
+0 0 63 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 14 3 2 #"On"
+0 0 4 3 1 #" "
+0 0 14 3 3 #"the"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"order"
+0 0 4 3 1 #" "
+0 0 14 3 2 #"of"
+0 0 4 3 1 #" "
+0 0 14 3 3 #"N^2"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0
blob - /dev/null
blob + d22d95ccefce0b1d56334860ee130e1b287820dd (mode 644)
--- /dev/null
+++ #32.3.1 Test Suite#1#
@@ -0,0 +1,3541 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 72 0 1 #"\0"
+0 75 1 #"\0"
+0 12 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
+#"Standard\0"
+0 75 11 #" Monospace\0"
+0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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 2 1
+#"\0"
+0 -1 1 #"\0"
+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 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41
+#"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38
+#"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34
+#"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 17 1
+#"\0"
+0 -1 1 #"\0"
+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 17 1
+#"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+ 0 3271 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 382
+(
+ #"#reader(lib \"htdp-advanced-reader.ss\" \"lang\")((modname |#32.3|) "
+ #"(read-case-sensitive #t) (teachpacks ((lib \"draw.ss\" \"teachpack\""
+ #" \"htdp\") (lib \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\""
+ #" \"teachpack\" \"htdp\"))) (htdp-settings #(#t constructor repeating"
+ #"-decimal #t #t none #f ((lib \"draw.ss\" \"teachpack\" \"htdp\") (li"
+ #"b \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\" \"teachpack\""
+ #" \"htdp\")))))"
+) 0 0 4 29 1 #"\n"
+0 0 17 3 37 #";jump : board posn -> (listof boards)"
+0 0 4 29 1 #"\n"
+0 0 17 3 25 #";Given aboard and aposn, "
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 9 #"trueboard"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 24 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 32 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"falseboard"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard2"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard3"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard4"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 25 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 33 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 11 #"falseboard2"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 11 #"falseboard3"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"list"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 2 #"))"
+0 0 4 29 1 #"\n"
+0 0 4 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 34 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"vector"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 4 #"))))"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"3"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"5"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 2 #"))"
+0 0 4 3 1 #" "
+0 0 14 3 9 #"trueboard"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"not"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"3"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"5"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 3 #")))"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"falseboard"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 2 #"))"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard2"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 2 #"))"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard3"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 2 #"))"
+0 0 4 3 1 #" "
+0 0 14 3 10 #"trueboard4"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"not"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 3 #")))"
+0 0 4 3 1 #" "
+0 0 14 3 11 #"falseboard2"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 6 #"andmap"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 6 #"lambda"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"b"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 3 #"not"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"enabled?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"7"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"b"
+0 0 22 3 3 #")))"
+0 0 4 3 1 #" "
+0 0 14 3 11 #"falseboard3"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0
blob - /dev/null
blob + b4f86c82d595a3321afcdfcecf9fb17d543fdd59 (mode 644)
--- /dev/null
+++ #33.2.1#2#
@@ -0,0 +1,451 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 77 0 1 #"\0"
+0 75 1 #"\0"
+0 12 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
+#"Standard\0"
+0 75 11 #" Monospace\0"
+0 16 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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 1
+#"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+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 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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 2 1
+#"\0"
+0 -1 1 #"\0"
+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 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41
+#"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38
+#"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34
+#"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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 22 1
+#"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+24 1 #"\0"
+0 -1 1 #"\0"
+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
+19 1 #"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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 19 1
+#"\0"
+0 -1 1 #"\0"
+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
+4 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1
+ 0 159 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 382
+(
+ #"#reader(lib \"htdp-advanced-reader.ss\" \"lang\")((modname |#33.2|) "
+ #"(read-case-sensitive #t) (teachpacks ((lib \"draw.ss\" \"teachpack\""
+ #" \"htdp\") (lib \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\""
+ #" \"teachpack\" \"htdp\"))) (htdp-settings #(#t constructor repeating"
+ #"-decimal #t #t none #f ((lib \"draw.ss\" \"teachpack\" \"htdp\") (li"
+ #"b \"arrow.ss\" \"teachpack\" \"htdp\") (lib \"gui.ss\" \"teachpack\""
+ #" \"htdp\")))))"
+) 0 0 4 29 1 #"\n"
+0 0 17 3 12 #";overflow-n?"
+0 0 17 3 1 #" "
+0 0 17 3 1 #":"
+0 0 17 3 7 #" N -> N"
+0 0 68 29 1 #"\n"
+0 0 17 3 10 #";Searches "
+0 0 17 3 4 #"for "
+0 0 17 3 2 #"a "
+0 0 17 3 6 #"value "
+0 0 17 11 69
+(
+ #"from [n,+inf.0) such that the number returned is the largest natural"
+ #" "
+) 0 0 17 3 7 #"number "
+0 0 17 3 6 #"where "
+0 0 17 3 6 #"(expt "
+0 0 17 3 6 #"#i10. "
+0 0 17 3 51 #"n) is still an inexact number rather than infinity."
+0 0 68 29 1 #"\n"
+0 0 68 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 68 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"overflow-n?"
+0 0 68 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 1 #")"
+0 0 68 29 1 #"\n"
+0 0 68 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 68 29 1 #"\n"
+0 0 68 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"<"
+0 0 68 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"expt"
+0 0 68 3 1 #" "
+0 0 20 3 5 #"#i10."
+0 0 68 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 68 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 68 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 2 #"))"
+0 0 68 3 1 #" "
+0 0 20 3 6 #"+inf.0"
+0 0 22 3 1 #")"
+0 0 68 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"overflow-n?"
+0 0 68 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"add1"
+0 0 68 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 3 #"))]"
+0 0 68 29 1 #"\n"
+0 0 68 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 68 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 3 #"]))"
+0 0 68 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 11 #"overflow-n?"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 17 3 13 #";underflow-n?"
+0 0 17 3 1 #" "
+0 0 17 3 1 #":"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"integer"
+0 0 17 3 1 #" "
+0 0 17 3 2 #"->"
+0 0 17 3 8 #" integer"
+0 0 4 29 1 #"\n"
+0 0 17 3 9 #";Searches"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"for"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"a"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"value"
+0 0 17 3 5 #" from"
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 6 #"-inf.0"
+0 0 17 11 58
+#",n] such that the number returned is the smallest integer "
+0 0 17 3 72
+(
+ #"possible where (expt #i10. n) is still an inexact number rather than"
+ #" #i0"
+) 0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"underflow-n?"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 4 29 1 #"\n"
+0 0 4 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #">"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"expt"
+0 0 4 3 1 #" "
+0 0 20 3 5 #"#i10."
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"-"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 2 #"))"
+0 0 4 3 1 #" "
+0 0 20 3 3 #"#i0"
+0 0 22 3 1 #")"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"underflow-n?"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sub1"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 3 #"))]"
+0 0 4 29 1 #"\n"
+0 0 4 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 4 3 1 #" "
+0 0 14 3 1 #"n"
+0 0 22 3 3 #"]))"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 12 #"underflow-n?"
+0 0 4 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #")"
+0 0
blob - /dev/null
blob + 9b22d8d250231d62f33b40a66e12989f28150a7c (mode 644)
--- /dev/null
+++ 10.1.1.bak
@@ -0,0 +1,47 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.1.1) (read-case-sensitive #t) (teachpacks ((lib "convert.ss" "teachpack" "htdp") (lib "guess.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "draw.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp"))) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ((lib "convert.ss" "teachpack" "htdp") (lib "guess.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "draw.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp")))))
+
+(define PAYPERHOUR 12)
+
+
+Data Definition
+
+A list-of-numbers is either
+
+1. an empty list or
+
+2. (cons n lon) where n is a number and lon is a list-of-numbers.
+
+
+Contract, Purpose, Header
+
+wage : number -> number
+
+Computes the wage given hours.
+
+
+(define (wage hours)
+
+ (* PAYPERHOUR hours))
+
+
+Contract, Purpose, Header
+
+hours->wages : list-of-numbers -> list-of-numbers
+
+Computes the wages (list-of-numbers) from alon.
+
+
+Template
+
+
+(define (hours->wages alon)
+
+ (cond
+
+ [(empty?) ...]
+
+ [else ... (first alon) (rest alon) ...]))
\ No newline at end of file
blob - /dev/null
blob + a7b4c440b42e8cb029a4bda61e3c383ab8d2056b (mode 644)
--- /dev/null
+++ 10.1.1.scm
@@ -0,0 +1,357 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.1.1) (read-case-sensitive #t) (teachpacks ((lib "convert.ss" "teachpack" "htdp") (lib "guess.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "draw.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp") (lib "sound.ss" "installed-teachpacks"))) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ((lib "convert.ss" "teachpack" "htdp") (lib "guess.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "draw.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp") (lib "sound.ss" "installed-teachpacks")))))
+
+(define PAYPERHOUR 14)
+
+;
+
+;Data Definition
+
+;A list-of-numbers is either
+
+;1. an empty list or
+
+;2. (cons n lon) where n is a number and lon is a list-of-numbers.
+
+;
+
+;Contract, Purpose, Header
+
+;wage : number -> number
+
+;Computes the wage given hours.
+
+
+(define (wage hours)
+
+ (* PAYPERHOUR hours))
+
+;
+
+;Contract, Purpose, Header
+
+;hours->wages : list-of-numbers -> list-of-numbers
+
+;Computes the wages (list-of-numbers) from alon.
+
+;
+
+;Template
+
+
+(define (hours->wages alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [(> (first alon) 100) (error 'hours->wages "too many hours")]
+
+ [else (cons (wage (first alon)) (hours->wages (rest alon)))]))
+
+
+(define list1 (cons 5 (cons 8 (cons 12 (cons 9 (cons 200 empty))))))
+
+
+;Contract, Purpose, Header
+
+;fahrenheit->celsius : number -> number
+
+
+(define (fahrenheit->celsius fahr)
+
+ (* 5/9 (- fahr 32)))
+
+
+;Contract, Purpose, Header
+
+;convertFC : list-of-numbers -> list-of-numbers
+
+;Converts alon (in Fahrenheit) to Celsius.
+
+
+(define (convertFC alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [else (cons (fahrenheit->celsius (first alon)) (convertFC (rest alon)))]))
+
+
+;Contract, Purpose, Header
+
+;usd->euro : number -> number
+
+;Converts usd to euros.
+
+
+(define (usd->euro usd)
+
+ (* usd EXCHRATE))
+
+
+(define EXCHRATE 1.22)
+
+
+;Contract, Purpose, Header
+
+;convert-euro-1 : list-of-numbers -> list-of-numbers
+
+;Converts alon (a list-of-numbers in US dollars) to euros.
+
+
+(define (convert-euro-1 alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [else (cons (usd->euro (first alon)) (convert-euro-1 (rest alon)))]))
+
+
+;Contract, Purpose, Header
+
+;eliminate-exp : list-of-numbers number -> list-of-numbers
+
+;Eliminates all toys within lotp that exceed the price of ua and returns
+
+;the remaining list.
+
+;
+
+;Template
+
+;
+
+;(define (eliminate-exp lotp ua)
+
+; (cond
+
+; [(empty? lotp) empty]
+
+; [(> (first lotp) ua) ... (first lotp) (eliminate-exp (rest lotp)) ...]
+
+; [else (first lotp) (eliminate-exp (rest lotp))...]))
+
+
+(define (eliminate-exp lotp ua)
+
+ (cond
+
+ [(empty? lotp) empty]
+
+ [(> (first lotp) ua) (eliminate-exp (rest lotp) ua)]
+
+ [(<= (first lotp) ua) (cons (first lotp) (eliminate-exp (rest lotp) ua))]))
+
+
+(define list2 (cons 4.5 (cons 4.6 (cons 4.7 (cons 4.9 (cons 5.2 (cons 3.8 (cons 2.9 (cons 3.4 (cons 6.1 empty))))))))))
+
+;
+
+;Data Definition
+
+;
+
+;A list-of-symbols is either
+
+;1. an empty list or
+
+;2. (cons s los) where s is a symbol and los is a list-of-symbols.
+
+;
+
+;Contract, Purpose, Header
+
+;substitute : symbol symbol list-of-symbols -> list-of-symbols
+
+;Replace old with new (numbers) in alos (list-of-symbols).
+
+;
+
+;Template
+
+(define (substitute new old alos)
+
+ (cond
+
+ [(empty? alos) empty]
+
+ [(symbol=? (first alos) old) (cons new (substitute new old (rest alos)))]
+
+ [else (cons (first alos) (substitute new old (rest alos)))]))
+
+;
+
+;Contract, Purpose, Header
+
+;recall : symbol list-of-symbols -> list-of-symbols
+
+;Removes ty from lon (list of names, data type: list-of-symbols).
+
+
+(define (recall ty lon)
+
+ (cond
+
+ [(empty? lon) empty]
+
+ [(symbol=? (first lon) ty) (recall ty (rest lon)) ]
+
+ [else (cons (first lon) (recall ty (rest lon)))]))
+
+
+(define list3 (cons 'firetruck (cons 'playstation (cons 'xbox (cons 'racecar (cons 'doll (cons 'bicycle empty)))))))
+
+
+;; how-many : number number number -> number
+
+;; Determines how many solutions a given quadratic equation has given
+
+;; coefficients a, b, and c.
+
+
+(define (how-many a b c)
+
+ (cond
+
+ [(= a 0) 'degenerate]
+
+ [(> (sqr b) (* 4 a c)) 2]
+
+ [(= (sqr b) (* 4 a c)) 1]
+
+ [(< (sqr b) (* 4 a c)) 0]))
+
+;
+
+;Contract, Purpose, Header
+
+;quadratic-roots : number number number -> Scheme-value
+
+;Given a, b, and c (numbers), it returns either a symbol ('none), a number (if there is one root to the eqn), or a list of 2 numbers by calling on two-roots (if there are two solutions).
+
+
+(define (quadratic-roots a b c)
+
+ (cond
+
+ [(= (how-many a b c) 0) 'none]
+
+ [(= (how-many a b c) 1) (/ b -2 a)]
+
+ [(= (how-many a b c) 2) (two-roots a b c)]))
+
+
+;two-roots : number number number -> list-of-numbers
+
+;Given a, b, and c, computes the two roots of the
+
+;quadratic equation and returns the 2 roots
+
+;as a list-of-numbers.
+
+
+(define (two-roots a b c)
+
+ (cons (/
+
+ (+ (* -1 b)
+
+ (sqrt (- (sqr b)
+
+ (* 4 a c))))
+
+ 2 a)
+
+ (cons (/
+
+ (- (* -1 b)
+
+ (sqrt (- (sqr b)
+
+ (* 4 a c))))
+
+ 2 a) empty)))
+
+;
+
+;Data Definition
+
+;A mixed-list is either
+
+;1. an empty list or
+
+;2. (cons mixed list) where mixed is either a symbol or a number
+
+; and list is a mixed-list.
+
+;
+
+;Contract, Purpose, Header
+
+;controller : number -> mixed-list
+
+;Controller takes in cents and returns a list with the following elements:
+
+;1. the dollar amount (number),
+
+;2. 'dollar or 'dollars,
+
+;3. 'and,
+
+;4. the cent amount (number),
+
+;5. 'cent or 'cents.
+
+;
+
+;Whether singular or plural is used for elements 2 and 5 is
+
+;determined using plural?.
+
+;
+
+;Template
+
+(define (controller cents)
+
+ (cons (quotient cents 100)
+
+ (cons (cond
+
+ [(plural? (quotient cents 100)) 'dollars]
+
+ [else 'dollar])
+
+ (cons 'and
+
+ (cons (remainder cents 100)
+
+ (cons (cond
+
+ [(plural? (remainder cents 100)) 'cents]
+
+ [else 'cent]) empty))))))
+
+
+;Contract, Purpose, Header
+
+;plural? : number -> boolean
+
+;Determines if a number needs to be considered plural
+
+;for grammar purposes.
+
+
+(define (plural? num)
+
+ (cond
+
+ [(= num 1) false]
+
+ [(not (= num 1)) true]))
\ No newline at end of file
blob - /dev/null
blob + ce9c4c8d1b2a1b9e72b1aec18c96fc007de0c7ef (mode 644)
--- /dev/null
+++ 10.2.1.bak
@@ -0,0 +1,358 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.2.1) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
+
+(define PAYPERHOUR 14)
+
+;
+
+;Data Definition
+
+;A list-of-numbers is either
+
+;1. an empty list or
+
+;2. (cons n lon) where n is a number and lon is a list-of-numbers.
+
+;
+
+;Contract, Purpose, Header
+
+;wage : number -> number
+
+;Computes the wage given hours.
+
+
+(define (wage hours)
+
+ (* PAYPERHOUR hours))
+
+;
+
+;Contract, Purpose, Header
+
+;hours->wages : list-of-numbers -> list-of-numbers
+
+;Computes the wages (list-of-numbers) from alon.
+
+;
+
+;Template
+
+
+(define (hours->wages alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [(> (first alon) 100) (error 'hours->wages "too many hours")]
+
+ [else (cons (wage (first alon)) (hours->wages (rest alon)))]))
+
+
+(define list1 (cons 5 (cons 8 (cons 12 (cons 9 (cons 200 empty))))))
+
+
+;Contract, Purpose, Header
+
+;fahrenheit->celsius : number -> number
+
+
+(define (fahrenheit->celsius fahr)
+
+ (* 5/9 (- fahr 32)))
+
+
+;Contract, Purpose, Header
+
+;convertFC : list-of-numbers -> list-of-numbers
+
+;Converts alon (in Fahrenheit) to Celsius.
+
+
+(define (convertFC alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [else (cons (fahrenheit->celsius (first alon)) (convertFC (rest alon)))]))
+
+
+;Contract, Purpose, Header
+
+;usd->euro : number -> number
+
+;Converts usd to euros.
+
+
+(define (usd->euro usd)
+
+ (* usd EXCHRATE))
+
+
+(define EXCHRATE 1.22)
+
+
+;Contract, Purpose, Header
+
+;convert-euro-1 : list-of-numbers -> list-of-numbers
+
+;Converts alon (a list-of-numbers in US dollars) to euros.
+
+
+(define (convert-euro-1 alon)
+
+ (cond
+
+ [(empty? alon) empty]
+
+ [else (cons (usd->euro (first alon)) (convert-euro-1 (rest alon)))]))
+
+
+;Contract, Purpose, Header
+
+;eliminate-exp : list-of-numbers number -> list-of-numbers
+
+;Eliminates all toys within lotp that exceed the price of ua and returns
+
+;the remaining list.
+
+;
+
+;Template
+
+;
+
+;(define (eliminate-exp lotp ua)
+
+; (cond
+
+; [(empty? lotp) empty]
+
+; [(> (first lotp) ua) ... (first lotp) (eliminate-exp (rest lotp)) ...]
+
+; [else (first lotp) (eliminate-exp (rest lotp))...]))
+
+
+(define (eliminate-exp lotp ua)
+
+ (cond
+
+ [(empty? lotp) empty]
+
+ [(> (first lotp) ua) (eliminate-exp (rest lotp) ua)]
+
+ [(<= (first lotp) ua) (cons (first lotp) (eliminate-exp (rest lotp) ua))]))
+
+
+(define list2 (cons 4.5 (cons 4.6 (cons 4.7 (cons 4.9 (cons 5.2 (cons 3.8 (cons 2.9 (cons 3.4 (cons 6.1 empty))))))))))
+
+;
+
+;Data Definition
+
+;
+
+;A list-of-symbols is either
+
+;1. an empty list or
+
+;2. (cons s los) where s is a symbol and los is a list-of-symbols.
+
+;
+
+;Contract, Purpose, Header
+
+;substitute : symbol symbol list-of-symbols -> list-of-symbols
+
+;Replace old with new (numbers) in alos (list-of-symbols).
+
+;
+
+;Template
+
+(define (substitute new old alos)
+
+ (cond
+
+ [(empty? alos) empty]
+
+ [(symbol=? (first alos) old) (cons new (substitute new old (rest alos)))]
+
+ [else (cons (first alos) (substitute new old (rest alos)))]))
+
+;
+
+;Contract, Purpose, Header
+
+;recall : symbol list-of-symbols -> list-of-symbols
+
+;Removes ty from lon (list of names, data type: list-of-symbols).
+
+
+(define (recall ty lon)
+
+ (cond
+
+ [(empty? lon) empty]
+
+ [(symbol=? (first lon) ty) (recall ty (rest lon)) ]
+
+ [else (cons (first lon) (recall ty (rest lon)))]))
+
+
+(define list3 (cons 'firetruck (cons 'playstation (cons 'xbox (cons 'racecar (cons 'doll (cons 'bicycle empty)))))))
+
+
+;; how-many : number number number -> number
+
+;; Determines how many solutions a given quadratic equation has given
+
+;; coefficients a, b, and c.
+
+
+(define (how-many a b c)
+
+ (cond
+
+ [(= a 0) 'degenerate]
+
+ [(> (sqr b) (* 4 a c)) 2]
+
+ [(= (sqr b) (* 4 a c)) 1]
+
+ [(< (sqr b) (* 4 a c)) 0]))
+
+;
+
+;Contract, Purpose, Header
+
+;quadratic-roots : number number number -> Scheme-value
+
+;Given a, b, and c (numbers), it returns either a symbol ('none), a number (if there is one root to the eqn), or a list of 2 numbers by calling on two-roots (if there are two solutions).
+
+
+(define (quadratic-roots a b c)
+
+ (cond
+
+ [(= (how-many a b c) 0) 'none]
+
+ [(= (how-many a b c) 1) (/ b -2 a)]
+
+ [(= (how-many a b c) 2) (two-roots a b c)]))
+
+
+;two-roots : number number number -> list-of-numbers
+
+;Given a, b, and c, computes the two roots of the
+
+;quadratic equation and returns the 2 roots
+
+;as a list-of-numbers.
+
+
+(define (two-roots a b c)
+
+ (cons (/
+
+ (+ (* -1 b)
+
+ (sqrt (- (sqr b)
+
+ (* 4 a c))))
+
+ 2 a)
+
+ (cons (/
+
+ (- (* -1 b)
+
+ (sqrt (- (sqr b)
+
+ (* 4 a c))))
+
+ 2 a) empty)))
+
+;
+
+;Data Definition
+
+;A mixed-list is either
+
+;1. an empty list or
+
+;2. (cons mixed list) where mixed is either a symbol or a number
+
+; and list is a mixed-list.
+
+;
+
+;Contract, Purpose, Header
+
+;controller : number -> mixed-list
+
+;Controller takes in cents and returns a list with the following elements:
+
+;1. the dollar amount (number),
+
+;2. 'dollar or 'dollars,
+
+;3. 'and,
+
+;4. the cent amount (number),
+
+;5. 'cent or 'cents.
+
+;
+
+;Whether singular or plural is used for elements 2 and 5 is
+
+;determined using plural?.
+
+;
+
+;Template
+
+(define (controller cents)
+
+ (cons (quotient cents 100)
+
+ (cons (cond
+
+ [(plural? (quotient cents 100)) 'dollars]
+
+ [else 'dollar])
+
+ (cons 'and
+
+ (cons (remainder cents 100)
+
+ (cons (cond
+
+ [(plural? (remainder cents 100)) 'cents]
+
+ [else 'cent]) empty))))))
+
+
+;Contract, Purpose, Header
+
+;plural? : number -> boolean
+
+;Determines if a number needs to be considered plural
+
+;for grammar purposes.
+
+
+(define (plural? num)
+
+ (cond
+
+ [(= num 1) false]
+
+ [(not (= num 1)) true]))
+
blob - /dev/null
blob + f9519f32a6da005b92ea9f579ba33e1e0690b2ed (mode 644)
--- /dev/null
+++ 10.2.1.ss
@@ -0,0 +1,93 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.2.1) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
+
+;Data Definition
+
+;An ir (inventory record) is a structure
+
+;(make-ir s n) where s is a symbol and n is a number.
+
+
+(define-struct ir (name price))
+
+
+;Data definition
+
+;An inventory is either
+
+;1. an empty list or
+
+;2. (cons ir inv) where ir is an inventory record (structure)
+
+;and inv is an inventory.
+
+
+
+;Contract, Purpose, Header
+
+;contains-doll? : inventory -> boolean
+
+;Takes in an-inv (inventory) and searches to see if
+
+;it contains 'doll. Return true or false.
+
+;
+
+;Template
+
+;
+
+;(define (contains-doll? an-inv)
+
+; (cond
+
+; [() ...]
+
+; [() (first an-inv) (contains-doll? (rest an-inv))]))
+
+
+(define (contains-doll? an-inv)
+
+ (cond
+
+ [(empty? an-inv) false]
+
+ [(symbol=? (ir-name (first an-inv)) 'doll) true]
+
+ [else (contains-doll? (rest an-inv))]))
+
+
+(define list1 (cons (make-ir 'hat 55)
+
+ (cons (make-ir 'match 25)
+
+ (cons (make-ir 'tricycle 1840)
+
+ (cons (make-ir 'jumprope 400)
+
+ (cons (make-ir 'doll 150) empty))))))
+
+
+;Contract, Purpose, Header
+
+;contains? : inventory symbol -> boolean
+
+;Takes in an-inv (inventory) and searches to see if
+
+;it contains keyword. Return true or false.
+
+
+(define (contains? an-inv keyword)
+
+ (cond
+
+ [(empty? an-inv) false]
+
+ [(symbol=? (ir-name (first an-inv)) keyword) true]
+
+ [else (contains? (rest an-inv) keyword)]))
+
+
blob - /dev/null
blob + 2f034e804f2301d968cae84cd6b4863d164dba09 (mode 644)
--- /dev/null
+++ 10.2.2.bak
@@ -0,0 +1,91 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.2.2) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
+
+;Data Definition
+
+;An ir (inventory record) is a structure
+
+;(make-ir s n) where s is a symbol and n is a number.
+
+
+(define-struct ir (name price))
+
+
+;Data definition
+
+;An inventory is either
+
+;1. an empty list or
+
+;2. (cons ir inv) where ir is an inventory record (structure)
+
+;and inv is an inventory.
+
+
+
+;Contract, Purpose, Header
+
+;contains-doll? : inventory -> boolean
+
+;Takes in an-inv (inventory) and searches to see if
+
+;it contains 'doll. Return true or false.
+
+;
+
+;Template
+
+;
+
+;(define (contains-doll? an-inv)
+
+; (cond
+
+; [() ...]
+
+; [() (first an-inv) (contains-doll? (rest an-inv))]))
+
+
+(define (contains-doll? an-inv)
+
+ (cond
+
+ [(empty? an-inv) false]
+
+ [(symbol=? (ir-name (first an-inv)) 'doll) true]
+
+ [else (contains-doll? (rest an-inv))]))
+
+
+(define list1 (cons (make-ir 'hat 55)
+
+ (cons (make-ir 'match 25)
+
+ (cons (make-ir 'tricycle 1840)
+
+ (cons (make-ir 'jumprope 400)
+
+ (cons (make-ir 'doll 150) empty))))))
+
+
+;Contract, Purpose, Header
+
+;contains? : inventory symbol -> boolean
+
+;Takes in an-inv (inventory) and searches to see if
+
+;it contains keyword. Return true or false.
+
+
+(define (contains? an-inv keyword)
+
+ (cond
+
+ [(empty? an-inv) false]
+
+ [(symbol=? (ir-name (first an-inv)) keyword) true]
+
+ [else (contains? (rest an-inv) keyword)]))
\ No newline at end of file
blob - /dev/null
blob + 130a4d981a887dd2d7084fe658a2541773eea5f7 (mode 644)
--- /dev/null
+++ 10.2.2.ss
@@ -0,0 +1,1757 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 73 0 1 #"\0"
+0 75 1 #"\0"
+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
+#"Standard\0"
+0 75 12 #"Courier New\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 39 #"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 42 #"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 36 #"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 36 #"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 31 #"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 41 #"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 34 #"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 35 #"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 37 #"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 35 #"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 4 1 #"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 0 1 #"\0"
+0 75 12 #"Courier New\0"
+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
+255 255 1 -1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+ 0 1156 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 173
+(
+ #"#reader(lib \"htdp-beginner-reader.ss\" \"lang\")((modname 10.2.2) ("
+ #"read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t construc"
+ #"tor repeating-decimal #f #t none #f ())))"
+) 0 0 4 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";An ir (inventory record) is a structure"
+0 0 66 29 1 #"\n"
+0 0 17 3 52 #";(make-ir s n i) where s is a symbol, n is a number,"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #";and i is an image."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 13 #"define-struct"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ir"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"image"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 23 #";An inventory is either"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";1. an empty list or"
+0 0 66 29 1 #"\n"
+0 0 17 3 61
+#";2. (cons ir inv) where ir is an inventory record (structure)"
+0 0 66 29 1 #"\n"
+0 0 17 3 25 #";and inv is an inventory."
+0 0 66 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";contains-doll? : inventory -> boolean"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";it contains 'doll. Return true or false."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 32 #";(define (contains-doll? an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 13 #"; [() ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 57 #"; [() (first an-inv) (contains-doll? (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"contains-doll?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 4 #"doll"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"contains-doll?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";contains? : inventory symbol -> boolean"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";it contains keyword. Return true or false."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"contains?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"contains?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 4 #")]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"list1"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 5 #"robot"
+0 0 66 3 1 #" "
+0 0 20 3 5 #"29.95"
+0 0 66 3 1 #" "
+0 3 23 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 6 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\09\0\0\0u\b\2\0\0\0{\340\336\305\0"
+ #"\0\n\341IDATx\234\345\\}LM\377\37\177\237n\17\267\242\334\362\34B4"
+ #"\222\321\242\31\e\252\371F3$k\306<\305\230\247YFT\2141\305D\331\210)"
+ #"\263\306jhL\211\262!\326\252MC\321\246\247\215<w\251[\327\275J\267"
+ #"\373\371\375\361\351{\234\316\303\347|\316\271'\337?~\257\277\3169"
+ #"\357\367\347\375~\235\367\375<\274?\17\347\2r\0\277~\375r\2448\306"
+ #"\346\315\233)5\301AOYYY\16Z\0\0ooo*MG\334\324\326\326\28d\341\375"
+ #"\373\367\b\241\232\232\232I\223&\311*\253\367\344\353\353\v\0[\267nU"
+ #"m\201\305\314\2313i\336\331\t\324\342\373\367\357\b\241\372\372z\325"
+ #"\26\316\236=\3130\f\3030\257^\275\242\321g\20B\252\235a\264\267\267"
+ #"\e\f\6EE\354v\273N\247\3\0E\336\325\307\225\205\301`\b\f\fTT\4\23U\n"
+ #"\r\270\2@CC\303\247O\237(\225\31\206\301\27K\227.U\346\306\361\226"
+ #"\2011o\336<JM\325\256\265\211+\0l\330\260!<<\334\323\323\223a\30\275"
+ #"^\357\343\343\23\30\30x\350\320\241\242\242\242\246\246&\236\362\344"
+ #"\311\223\221\212v\242\364\345\310\241rvv&\273suu]\276|\271J/\332r\5"
+ #"\00077\267\261c\307\32\f\6\17\17\17\2i''\247\314\314\314\277\3155??"
+ #"\37S$\253577\27\24\24\254Y\263\206\313\330f\263\321;\322\200+\0\254"
+ #"\\\271RE\301s\347\316)\252\204\332\264\255k\327\256\251(E\337\315ah"
+ #"\303\225\\5\245\360\376\375{E\372\232\365Y\\\364\366\366J\211\20\247"
+ #"!~\370\360A\221Y\r\362\1\206\351g\4\17KRf\271\312^^^f\263"
+) 500
+(
+ #"\231\236\200\366q%\373\346J\273\272\272\24%\6\3R\a(C\325\323\323\243"
+ #"\327\353\351\315\16\bWz\f\e6\214^\371?\346\32\31\31I\257\374\37sU\4"
+ #"\355\271\326\325\325\5\5\0051\2\b5E\37\22 \223\26\251@pp0\245\346"
+ #"\344\311\223\333\332\332\350-k\20Wax\"\"\"n\334\270a2\231\254V\253"
+ #"\311djll\274t\351\222\260`HH\210\262\341@E\316\301\303\335\273wU\224"
+ #"\2324i\222R\2\32pU\264R\364\366\355[^\260ZZZ\26-Zt\373\366m\331\262"
+ #"\232\315\267d\261`\301\2\a\177\341\1\344j6\233\203\202\202\350k\243"
+ #"\335n\37@\256\356\356\356\nZ\206\30\302\303\303\337\275{\207\20Z\261"
+ #"b\205lh\35\352\a\314f\263\272\202\36\36\36\a\17\36D\b=~\374\330\337"
+ #"\337\37\0\2\2\2dK)\350_\273\273\273\277~\375ZZZ\372\345\313\227\246"
+ #"\246\246\353\327\257+\342\267j\325\252\177\376\371'>>^4\267b\273\5"
+ #"\22h~\353A\203\6)\242\305\242\250\250\250\247\247\207\306\305\203\a"
+ #"\17d\311\320\326\327\254\254,.\t\235N\267q\343\306\214\214\214\262"
+ #"\2622\234/;\210\327\257_\3\200\311d\322\200kWWWww7{\233\220\220\340"
+ #"\0205\1ZZZp\24\202\203\203+**Dud\332\226\237\237\37\316<\364z\275"
+ #"\233\233\e\3030c\306\214\1\0\27\27\27u\265B\n\b!\0())\251\255\255MKK"
+ #"c\30\346\316\235;<\35I\256\376\376\376\f\303|\376\374\31_\263\357"
+ #"\372\361\343GmYbtvv\2@GG\a\3030\205\205\205mmm\a\17\36d\30&,,\214"
+ #"\325\21\357\a\330t\244\247\247Gt\211j\330\260aIIIiiiZq\345%\\\6\203"
+ #"\1\257\230s\23#\21\36\335\335\335\370\2IO\233\364z\375\233"
+) 500
+(
+ #"7o\264\241\t\0\0\337\276}\223\325\21\251\3eee 7\277\323\353\365\332V"
+ #"\6\\\331\274\275\275\t:\"\\\355v;\215\365\236\236\36u\264D\321\336"
+ #"\336\16\0\236\236\236\4\35\21\256K\226,\2215\355\345\345\245\232\226"
+ #"(\236<y\2\0\323\247O'\350\250\317\aF\215\32\245\272\254\20\270%)\256"
+ #"\0034\360\360\360P\272OD\306\217\37?duTrmmmU\272OD\206\315f\223\325"
+ #"\21_{\343-\247\t\341\345\345\365\343\307\17\rG/\251\25;.\23\225\\e"
+ #"\25\224\202\206\353\377\367\272\213\n|\377\376\235FM\204+\36B\b\320v"
+ #"\24\0\200\322\322R\0\2308q\242\214\2360M\2342e\212\350s\26\231\231"
+ #"\231d\5\245\300m4==](\342:\22q)\365\16,\206\17\37\256-W\354\261\276"
+ #"\276^T\364\347Z\252\244\250\321\23'N\20~\20\325 \30\344>\247\235\307"
+ #"\272\272\272j^Me\301\333\317\341\267-QB\f\303\260\317\253\253\253"
+ #"\265%\204g\205\242\340\rf|\256x\226\23\32\32*Z\30!\324\320\320\3400"
+ #"\275~HMM\225\22\311p\305+\24\341\341\341\302\2228\t\222\355\321\224"
+ #"\342\376\375\373R\"\31\256xf\262h\321\"a\311\2337o\202\3\353BR\300"
+ #"\263BQ\360\23\32\232&\t\0\353\326\255\303\327{\367\356\25\325q\260"
+ #"\23\210\210\210\20\212pUfoi\307\330\213\27/\342\213\301\203\a\323"
+ #"\307\214\36\261\261\261\302\207\274\337\220\226+;\23\322|\366\2021m"
+ #"\3324\341C\324?\355R\234\273h\313\225\255\254\v\27.\24JIq\315\315"
+ #"\315\5\0\336\344\4\37pd1a\302\4-H\366!##\203 5\231L\334\333~\\kjj@p"
+ #"\304\253\274\274\234{\353\370Z6\27\35\35\35\4)o7\252\37\327+W\256\0@"
+ #"tt4\367\341\356\335\273\271"
+) 500
+(
+ #"\323v\37\37\37\r8\376\v\362\224\2207\210\366\343\212k\317\2349s\330'"
+ #"\305\305\305v\273}\307\216\35\354\23u\307E\244@^\274\371\365\353W"
+ #"\277{\251\316\225]\325\342\351\260uH\223\316\225\373\346Bivv6H\365"
+ #"\257x\307\21/\270\272\271\2719\0220JX\255V\202\224\267\264\341\f\0"
+ #"6\233m\320\240A\334@r\301\353\244\310\255A[\360\332\261S\\\\\234\213"
+ #"\213\213\24Q\0\350\354\354\344\276\37a\370\326\34\274\250;\345\345"
+ #"\345\2617\302\235\273\352\352\352\223'Ovvv2\f3\177\376|P~\250\212\6)"
+ #"))\242\317\277|\371\322\357~\317\236=aaa\344\26p\367\356]\254\214\20"
+ #"\332\266m\e{\335\332\332J\263\250\210\21\20\20\20\23\23s\354\330\261"
+ #"\364\364\364-[\266pE\b\241\254\254,\235N\347\344$2\216\2624@\247\323"
+ #"%&&\222\271\262\355\fq\366\322\265\202N\247\353\243\"\201?\375@oo"
+ #"\257\354\20\217k3\36E\204\ao1\30\206\211\214\214|\372\364\251\325jMJ"
+ #"JZ\265jUNN\16\353\306b\261Hu\314l\222\212\20\32;v,\276\346*\377\376"
+ #"\375\273\357\312\331\331\371\350\321\243\344\270b\315S\247NI\275}KK"
+ #"\213h\301\252\252\252\303\207\17\357\332\265+!!\341\305\213\27F\243"
+ #"\261\245\245\5\2175\301\301\301\253W\257\226u\212q\346\314\31\204P"
+ #"\337\330@(SRR\2\0\215\215\215<Cqqq\3447\354\352\352\"H]\\\\\306\215"
+ #"\e\307{gww\367\3\a\16\30\215F\241\221\321\243G\3B\210\320\266\216\34"
+ #"9\302\376@<\2348q\202\314\265\267\267\227 \345\366\203K\226,\251\251"
+ #"\251![\333\277\177?`\243R1\300\266\356\335\273'\24=|\370\220l\35!TYY"
+ #")%b\203\352\344\344$k\a!\224\222\222\322\27\2605"
+) 500
+(
+ #"k\326\3606\244\361\242\225TP\21B?\177\376\224u@\250]\270\267\6\0///"
+ #"\32\256s\347\316\355g\v\347\332,\2\2\2h\254\220\271\376\376\375[Tt"
+ #"\372\364i\354\345\302\205\v\224\246\372\365\275\353\327\257G\bUUU]"
+ #"\276|\271\255\255M\252{R\4)#\354\n&\315\361\307\364\364t\0M\227\320D"
+ #"\203\221\232\232**b\307\352g\317\236\221\215\334\272u\253\217\362\0"
+ #"0\374\3\0000\30\f\4)\0\224\224\224\310\32\371K\\\261\v\321\263\e\0"
+ #"\220\227\2277u\352T\204\220\325j\335\267o\337\214\0313\244\16D\32"
+ #"\215\306\277\3045))ITz\376\374y\362d\323\325\325\365\217\376\337\341"
+ #"\212\203\307\203N\247\v\t\tA\b%$$\0\0\3030~~~\261\261\261\307\216\35"
+ #"\23\267\366w\270\212V\266\331\263g\263I\26\2255u$\36=zDe\235\310\265"
+ #"\265\265UQ\203Q\271\277\245\311\241\fE\a\313A\365^\234\242\325m\2556"
+ #"\32Tr\2459\236\302B\263-\6\372\352\302\205\257\257/\215\32\0\214\349"
+ #"\22'\371R\n\271\271\271\224NUruqq\241\262\16\260s\347NBP\0\0w[4PY\a"
+ #"\350\253\240\354\261\370\227/_R\232\32\360}n\362\21\26E\30p\256\25"
+ #"\25\25Z\231\32p\256x\277\35\237\230\24b\331\262e\364\246\6\234\353"
+ #"\317\237?\1`\356\334\271\242R| \253\253\253\213\306\324\200s\265X,\0"
+ #"0k\326,Q\351\376\375\373\341\337]>Y\f8W\274\256\350\347\347'*\305-Ox"
+ #"\324U\34\264=j\177p\323J\2X/\345\345\345d\35\32k*\343:t\350PE\372J?"
+ #"\177\22\205J\256\362\347h\6\0*\271\322\177<\202\367o5\331\35W\306u"
+ #"\361\342\305\f\303\214\e7.&&\206\240f2\231\330\377\374(,,\4\200\347"
+ #"\317\237"
+) 342
+(
+ #"\253\246\370\a\264\255\t!\274\242\30\32\32j4\32\267o\337\3165\22\32"
+ #"\32\32\37\37\177\372\364\351\374\374|L\216k\37\244\27\202\270j\351"
+ #"\351\351W\257^%\20P\362\251\227\222w\343\222\300\211\271P'11\221\367"
+ #"J\0p\374\370qG\271\262\25\216R\337f\263\231\315\346\250\250(\350?"
+ #"\337\262\331l\211\211\211\274\3566::\32!\324\334\334<b\304\bB\266I"
+ #"\353{\310\220!\0000b\304\bJ}\26\354v\5\315\337\"l\332\264\t\0:::\304"
+ #"MQVk\234\260\342\277pP\4v\345\237\346\323m\34\221\312\312JQ)-W\354I"
+ #"\352,\24\18w\241<y\202\2671\244>\356\244\345\212O&)\335\244e\207+"
+ #"\312\357\0\212\213\213\201\260\371\255\250\362\361\364-\26KNN\316"
+ #"\332\265ki\16\226\310\32gO)dgg\213{W\304\325h4\322\204\207\305\370"
+ #"\361\343\353\352\352\310\\-\26KAA\1w\252\363\371\363g\r\270\"\2123"
+ #"\332111W\256\\\261X,X_x\336\340\366\355\333\311\311\311\370\224\255"
+ #"\20\311\311\311\222\256\225r\305\260\333\355&\223\311l6\323\364D\224"
+ #"?BTT\24\371\263\323\377\1\250\227\355f\254\315s9\0\0\0\0IEND\256B`"
+ #"\202"
+) 0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 20 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 4 #"doll"
+0 0 66 3 1 #" "
+0 0 20 3 4 #"9.95"
+0 0 66 3 1 #" "
+0 3 21 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 5 500
+(
+ #"\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"
+ #"DATx\234\325\\_HS\357\e\177\217\231\332\\[h\00313m\264j!\254\314V"
+ #"\220F--\252\v#\f\242\302\274\20\262\b\212\f\274H\"\"\250 \272\311"
+ #"\253\376\b\321E\27%\366\207B\363b\375!\212\32\264\213\246i\323L\233"
+ #"\2469k\233f\233\353\375^\274\277\316\357\264\271\355l\347y\316\231"
+ #"\237\253\355\374\371<\317s\236\347}\337\347\375\313QJI2!??\177``\200"
+ #"\20\242\321h~\376\374\211*+\5\225=\0010\313\t!\36\217'==\375\375\373"
+ #"\367x\262\270d\363<\307q!WV\256\\\351p80d%\235\347\351_tww\263+\235"
+ #"\235\235{\367\356\305\220\225t\236\17A\177\177\177AA\1!\4CO%=\237"
+ #"\225\225\305\t0\3433K\226,\241\224>x\360\0E\3\252\20\334n7!\204\343"
+ #"\270\246\246\246\307\217\37\23B\32\32\32d\326A\261\260\337\272ukff"
+ #"\346\375\373\367\371+Z\255\26\273m\vA\252\234\302\204\350\352\352\32"
+ #"\34\34\24^)++\223Y\a\305<\177\352\324\251\214\214\214s\347\316)\""
+ #"\235A\311\332\236\343\270\17\37>\30\215F\245\24P\270\235_\265j\325"
+ #"\263g\317\224\222\256\244\347m6\333\332\265k\211\2106\234\343P\364T"
+ #"\254\302#\204\24\27\0273\223\204\215\274\320H\376:R;\237\24\31^\244"
+ #"\f\207\a\222\222I\221\333SJ].\327\262e\313\302o\231L&D\367\310\234T"
+ #"\305DEEEJJ\n!d\371\362\345\330\262\222\"\354\225BR\204\275R\230\255"
+ #"\306\373\375\376\232\232\32.2\366\355\333\347p8\376\374\371\23\215\5"
+ #"\273\\a \336/u\372\364\351\231yd\326;\34\323\323\323\337\276}\23\363"
+) 500
+(
+ #"\344\376\375\373\2311\375\375\375\"\311\207\206\206v\354\330!\374\20"
+ #"\255\255\255\374]e\214\267\331l\221\274\364\365\353\327Ho\2358q\342"
+ #"\356\335\273\211I\274z\365jFF\6/\245\242\242\202\312o\374\372\365"
+ #"\353\305\4\352\272u\353\220\24\370G\f\222\214\230\202\315f\263\325j"
+ #"\25\336u\273\335\365\365\3652\350f\265Ze5\236\rZ\361\350\350\350\210"
+ #"\364dss3\377\330\355\333\267\221\364\31\36\36&2\344\366|\336^ZZ\372"
+ #"\374\371\363\304\336ER\22\267\235W\253\325\354\a\2454^\313\331[\26"
+ #"\213\205\210\350\371$\b\244\270\242\224\356\332\265\vD\4\236\236X"
+ #"\375y\255V\353\361x\bD\304RJ\221<\17\37\366>\237\217\3438\217\307#"
+ #"\364\233D0\373\323\322\322@\330x\300Wx\314K\340\264\32\215\306\353"
+ #"\365\302\322\2{\36\311rB\b+D\327\257_\a\344\204\364<\263<//\217\237c"
+ #"\a\a\354H&X\205\207\347s!\366\354\331\3I\a\322f\234<y\22\212*&>}\372"
+ #"\4E\5P\346_\277~}\371\362e*\327p\30\340$\207T\343\17\37>\274a\303\6"
+ #"\20UD\342\325\253WPT\222\312<+\347\273w\357nii\1\322'6\276\177\377"
+ #"\16E%\265\302{\364\350\321\316\235;AT\21\t\266J\5\6\t\327\26g\316"
+ #"\234)//\207\252{\304\243\275\275\35\212*\361f\23i\3620&\6\6\6\26/^\f"
+ #"B\225H\330\263\242\16\233l\211\27\r\370\305\343\346JOO\367\373\375\6"
+ #"\203\341\343\307\217PJ\304%\375\367\357\337Plq\e/O&7#jjjrss\317\237?"
+ #"\17E\230\210\361\212X\336\336\336\276m\3336X\321qX\242\240\317\t\316"
+ #"G\27\233\3411\313KJJ`\305\213Dee\345\347\317\237\341y\305\264\207l"
+ #"\205\344\2349s\240\32\330\270\300j8"
+) 500
+(
+ #"\ffQ\261\244`\300\367\365\365-]\272\24Iz\354v\376\332\265kH\262c\202"
+ #"\37\267\34\37\37G\21\20=0\304<\223\0~\375\372\25\345\256\313\345\312"
+ #"\313\313c\242C\246\264`\21\315\363\354\303o\331\262\5\374\213[\255"
+ #"\326\355\333\267G\21\312@\261\303-\322Waw5\32\r\322W'\204TUU\365\366"
+ #"\366\216\214\214\\\272t)33S\250Unn.\222\334\177t\230\361\352\255["
+ #"\267\br\365\36\311\31\t\317\300'\200\320\332\336h4vvv\22\345\222\319"
+ #"\221b2\2318\216+...**\3428\216Y\16\233\314\0vE\320\361\344\311\23"
+ #"\330\350\312\311\311\241\224\366\366\366\212\17\351`0\350t:a\325\b\a"
+ #"\311\316\316F\265\234RJ\376V\253\204\220\2337oFyrllL\245R\2058\303"
+ #"\345r\201\253\364?}\220x\205hkk\23\376\235;wn\244\240+))\231\232\232"
+ #"\22>\334\323\323\303na(\246\330\362\323\356\356\356\276\276\276\224"
+ #"\224\24\275^\317\22\330(P\253\325>\237\17\\\at\343\3\201@\24W+\v\364"
+ #"\345\247\251\2510\323\201~\277\37\204G\210Y\263\352Z\311\301\f)\300"
+ #"\352\223I\206\34\306\267\266\266J'ihhp:\235\322y\376\1F\23\22\2\220"
+ #"\211\35\257\327{\364\350Q\351<B\310Q\346\215F#\310\356\177\330A{\"O"
+ #"\330\257Y\263\6\204\207_\330\a\59\214\327\353\365 <G\216\34\1\341"
+ #"\341!\207\361\205\205\205 <\26\213\345\335\273w T\fr\30?\177\376|("
+ #"\252\3\a\16@Q\221Y\267\301htt\24\220M\16\343GFF\240\250ZZZ\0g\207"
+ #"\345\330H\374\345\313\27(\252M\2336\31\f\6\376\24\31\211\220\303\363"
+ #"?~\374\0d\343{\370\322!G\222\223\223\223\303\266u\200`zz\32\252\2478"
+ #"\313j{\2\327G"
+) 500
+(
+ #"&\362\30\37s\240&^@\305\221\34\306WVV\302\22\212\334\234\27\e\260"
+ #"\375\244p`\214\275^\270p\301\357\367K\347A\367\374\275{\367\3009\217"
+ #"\35;\326\324\324$\235\a\275\266\317\316\316\36\e\e\3\247\5\31\325"
+ #"\222cS!\206\b\220\301l\364\260GZ\220\355\363\371\216\37?.\221d\326"
+ #"\214\336\206CzL\315\262^\235\20\v\26,\220\310\200k|[[\e\36\371\215\e"
+ #"7\244RHo-\243\0\233\277\252\252J\312\353\210e\336\343\361\224\226"
+ #"\226\332\355v$~\"\271\330#\366\347W\254X\321\325\325\205\307O$\257 A"
+ #",\363CCC\32\215\6\217\237\20r\350\320!)\257c\205}ZZ\332\2337oV\257^"
+ #"\215A\16\5\24\317766\6\2\201$\267\234 y\236\343\270\262\2622\31\316w"
+ #"\2248\252\203U\346\37>|\210\304,\204\324\357\v\321\334\206\342\342"
+ #"\305\213\30\264\341HMM\225\364:\220\17\376\217\362\362\362\247O\237"
+ #"\202\323\206C\257\327_\271rE\n\3\312\261\21\340\234H\202\340\313\374"
+ #"\302\205\v\3019\303\1r~\n\274\361\330Y\35\371k9;EC\22\17l\210NNN\206"
+ #"\257\37\5\304\324\324\324\274y\363\b\320\242p`\317\253T*vv)\0066o"
+ #"\336\fh9\301\350\330 \325v|!\257\253\253\3#\225\334\326\206\242\260"
+ #"\260\360\355\333\267\200\204g\317\236\345\265\35\37\37\adFIr\230\242"
+ #"\215\215\215RHB\346\341\241t\23\2\205TX\347\305\373\256\333\355\326"
+ #"\351tB\263\233\233\233\21t\244\24i\306fbb\202_9\304q\234\230\223}"
+ #"\202\301`GG\207V\253\315\312\312\342\327\236\214\216\216RJ\27-Z\204"
+ #"\241$!\230cl!3J\6\203\201\235\354%D \20\350\351\351\231\361\2703v"
+ #"\3047\245\264\276\276\36IC,\343\371#\341(\245/^\274\210\231"
+) 202
+(
+ #"\220\251T\252\203\a\17\316\270\323rbb\302\351t\n\347\271\241\224D\31"
+ #"\303\v\6\203w\356\334\251\255\255e\1777n\334\310\216]\366x<6\233\315"
+ #"\341p\f\17\17\27\24\24\30\f\206\242\242\242\230\303\357:\235nrr\222"
+ #"\377\v\271\32\r\352+\na\267\333\a\a\a\241\330\230\236\371\371\371"
+ #"\265\265\265!;p\2442\3r\361\250\256\256\6d\253\253\253\3d\23\2 \267"
+ #"\177\371\362\245\305b\t\337\6\"\235\31\e\222\312\274\335n7\231L\302+"
+ #":\235\256\272\272\332l6\233\315fi\212\311\1I\236\347\353p\265Z\355"
+ #"\365z\201T\222\17\211'9\314r\266\3s6ZN\b\371\17\24\274S\2\f\350I\266"
+ #"\0\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 6 #"rocket"
+0 0 66 3 1 #" "
+0 0 20 3 5 #"59.95"
+0 0 66 3 1 #" "
+0 3 21 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 5 500
+(
+ #"\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"
+ #"9IDATx\234\315\233[H\24_\34\307\177\353\256m\333n\332\305Z\273mIX"
+ #"\202\31\226\255\21E\322B\241ADR\30X`\5BDB/A\21R\21\24\4\322\205\324"
+ #"\207\350\16\25\21t\243\202B\"\272\240\17=\264eXRY\232!\262\233i\271"
+ #"\272\332\371?\374\326\343\354\354\\\31693\343\376\277/;s.\277\363"
+ #"\231\337\271\314\271\314\332\b!`\231\334n\367\237?\177\304\362\246"
+ #"\230\213\"Uii\351\337\277\177\205\263;LD\221\312f\263\31\264`\211"
+ #"\317\244X\302\210\26\326&\312\351t^\271rE$'1U2\17\345\346\346b\17"
+ #"\313\316\316\3465e&\331\266m\333\244Xyyy\30\276u\353V\1\27\230F\326"
+ #"\321\321!\305\272x\361b\\1\0~\277?9d3f\314\320h$\225\225\225\274n"
+ #"\263\21\223FZi\vS\264i\263\361\225eN\337\334\276};\275^\273v\255b"
+ #"\232\23'Np\3314\301gCCC\251\251\251\364V\315`ss\263\317\347\363x<"
+ #"\254v\215\2670Y=j\250\274\274\234\335\254Q2\256\207\4\200\262\2622V"
+ #"\313\306\300F\3116o\336\314\222x\362\344\311\254\226\215`\235;w\216"
+ #"\253Up\265\37C=@w\244\220\311\341p\f\17\17wvvfff\352&\266\374\215."
+ #"\325\223'O\0 ++\213)\265pUJ\235t\373\366m\256,L)\205\261B\241\20\26S"
+ #"XX\310\236\353\300\201\3\0\320\325\325e!\331\316\235;\221\254\273"
+ #"\273\233=\327\347\317\237\1\340\310\221#V\221\235={\26\261\262\262"
+ #"\262x\3632V\250 \231\327\353\305\2\232\233\233y\363.]\272\324B2#\35"
+ #"\350\321\243G,\31E\3063BHJJ"
+) 500
+(
+ #"\n\0\270\\.\261u\e\313\214Hd<;\177\376<^\24\27\27\vdg\225@u\30\311"
+ #"\213\n\4\2\17\37>\324)E\300\256q\262k\327\256\25\24\24h\247\341ng"
+ #"\321ht\334\270q\224L\254\242\320\210vv\356v\206=\313\240p\16\374\346"
+ #"\315\e\2154\334>\343\235_h\330\261\333\355CCCj\t\306t\256!\323\360"
+ #"\360\260F\2548YQQ\221p^\26\211\223m\330\260\301x\361_\276|Q\215\343"
+ #"\355\360\302\31\25\355\344\347\347\253&\20\263X\\\\l\f\2148\235N\355"
+ #"'\24\254M\351\242\\L\313\226-\323N\300Gv\343\306\r\274\b\4\2\202D#Z"
+ #"\271r\245N\n\256*\310\317\317\27\310\245(:d\334\277\177\337\204\332|"
+ #"\373\366-\277w\224\205\363(\0x\372\364\251r\n\256\a\305,n\267\333"
+ #"\270\317\b!>\237\17\0\\.\227b\254H\17X\267n\235\210\227\22\204\373Y"
+ #"\375\375\375\312\321\354\217\30\211D0\313\207\17\37L\361\331\313\227"
+ #"/5\308\310\36<x\300\3730\332\n\207\303\32\69j\363\365\353\327B\225"
+ #"\246\252I\223&i\304r\220\275\177\377\3360\f\2078\346gn\267\eWJ\354Y"
+ #"\364\213\267\331\324\fr\370\f\261\260\253\217\201\270G\215\377/\331"
+ #"\202\5\vL,\336n\267\3\200\342\234\233\233,''\307\4\242\21\341&\274r"
+ #"\337b\37~0}__\237\31cYL\370:\331\267o_b\24\267\317\334n\267!/\305k"
+ #"\316\2349\0 ;MC\261\222\365\365\365\231\bD\205d?~\374H\214b%kkk3\223"
+ #"(^\3645%\25+Ycc\243\25101M\2348\21\0\332\333\333\23\243X\311\276}"
+ #"\373f&Q\274\350,F*V\262\337\277\177\233\n\23\247\201\201\201\304\300"
+ #"$\223)z\v\305J\366\353\327/\223`\342\324\333\333\253\26\225\344Q\243"
+) 500
+(
+ #"\273\273[-*\231{A\240\331\261\222\334\316\24G\177T\222}\326\332\332"
+ #"\252\26\225d2\305\361\2\225d2\324\370\361\343\23\3\365\277?{\374\370"
+ #"qKK\213\5<\243\222~T1*\215\311\23\375\20\220\20\262b\305\n\335\364"
+ #"\272\232?\177~OO\2174\4m\372|\276\304\304\252>\v\207\303S\246L\201"
+ #"\221\205\215)}\263\265\265U\361\304i\372\364\351\211\211U\333\31buuu"
+ #"\341\255\306k\204K\204\220C\207\16\311\2\247N\235\312Jv\341\302\5\0("
+ #"//\2376m\32\206h\274FxE\317F\251\322\323\323\1`\375\372\365q\241\211"
+ #"\25\214\a\344\16\207C\32H\273\217\221v&m^\204\220\236\236\36\264I"
+ #"\327\1\322s\\yI\273w\357V$\320x\22a544\240\315{\367\356\321\300P("
+ #"\244@\326\331\331\211IO\237>m5\31\0\\\275z\25mvtt\320\360H$\22\211D"
+ #"\344d\32\305[\3413\\\6\3@4\32\225\206\327\327\327+\223566\216\r\31"
+ #"\235Y%Fedd\214\206j\27\214\37\f\254^\275\332D2\224\254\253Q\230\330"
+ #"\250\201\335$77W\251\233\3\0\314\235;\27\30\216\27\4\24\215Fe!\350"
+ #"\313\30Yuu5h\236\252fdd\0\300\314\2313M'\3\0\277\337/\275\305o\226cd"
+ #"g\316\234\201\221\25\263\242\262\263\263\1\200\16\274\346j\371\362"
+ #"\345t\23\30\0\366\354\331\3\0@\b)++\3\200\324\324T\215\326\200{\343"
+ #"\257^\2752\275\235\241\202\301\240\374\225Jojjj\2643\3@0\30\264\210"
+ #"\f\355\307\255\203\350nG\177\177\277n\316\266\2666\353\310._\276\34W"
+ #"\307{\367\356\245\316K.\31Q\334\230\266\333\355\377\a\262]\273v-Z"
+ #"\264\b\217ucd\263g\317f!{\367\356\235\245dtW\237\320=G\227\313\245"
+ #"\333\267"
+) 500
+(
+ #"\235N'\235\267X$\304\330\261c\a\320\361LcuE\345\365z\0257\aM\327\245"
+ #"K\227\0 \5w\227\177\376\374\251\233\241\260\260\360\372\365\353VcQ"
+ #"\245,Y\262\4\0\6\a\au\223\346\344\344\334\275{\327R\232\232\232\32"
+ #"\274\370\372\365+\34<x\20ot\233'\276\6,\355\1\263f\315B\230`0\230"
+ #"\302\372E\260\312J\332\\\321\r\230\t\23&\214\276\235\314z\356\364"
+ #"\364t\261\214\5\5\5\24\221\340\234\226\213L\367k\373P(\324\336\336.@"
+ #"&u^\214\f?\204\371\367\357\37\243\211[\267n\351\226\301\213U__O\261*"
+ #"++cd\363\346\315\3\0\331\216\203\232\26.\\\250\233F\200L\352\260p8L"
+ #"\360\35\260q\343F\0\370\364\351\23K#mii\261\331l6\233m\325\252U\32"
+ #"\311\214\314\313c\347\353ddEz\364\350Q\261G\244\262\333\355iii~\277"
+ #"\237B\vX\e\r$\204\340\361\342\226-[\330\311\6\a\a\217\35;\246\373"
+ #"\364F\311p7E\373\277+w\356\334I,\t\377#\241\241\343\307\217\e\"#z\3G"
+ #"mm\255\266\e4^n\\dk\326\254\341 \223mw\261\224\204\332\277\177?K\372"
+ #"\212\212\nE\343:d8!\241\222n\332\260\210\205\214\356ndff\262\222}"
+ #"\377\376]\212%0\325f!\243\366\353\352\352X\311\244Xb\337O555\325\326"
+ #"\326j$\220\316X\345\245\343\17\236\315\252a\t0I\355h\304\342?N\1\300"
+ #"\343\361(\223-^\274Xj\242\264\264\224b\5\2\1\203d\325\325\325\32\261"
+ #"\250\212\212\ne2\374\213\20^?\177\376\334,\207\21B\362\362\362\0@m"
+ #"\366AKI\374kR\254\340\252\252*\n\341p\214\36\22|\374\370\321 \31~"
+ #"\264YRR\242M\246\20\205?uuu\200\263\357\21y\275^\203LRy<\236"
+) 162
+(
+ #"\242\242\"Y \356/)62B\317P\320O8\35B\261\254\246\330\325\333\333+"
+ #"\373\23\375\300\300\0\235\335l\332\264)1Kl\275\231\226\226f\"\207"
+ #"\242JJJ\244\267'O\236\244\327\3623\n\24\272\356\346\315\233\322\300"
+ #"\206\206\6\23\253\222\352\331\263g\364Z\372}\221bb\371\0162\313\326"
+ #"\213\21\341\266\346\213\27/\22\275\243Jv\370\360a\0hjj\262\224\214("
+ #"\315:u\310\b!UUUVc\305J\345%\eKQ\254S\247N)&\370\17#l\0_X\204\310m\0"
+ #"\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 4 #"))))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 57 #";show-picture : symbol inventory -> mixed (image/boolean)"
+0 0 66 29 1 #"\n"
+0 0 17 3 56 #";Given name and an-inv, this function produces the image"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";of the toy with the corresponding name. If"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";the toy is not in the inventory, false is returned"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";instead."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"show-picture"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"show-picture"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";price-of : symbol inventory -> number"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";Given name and an-inv, it finds the price"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";of the corresponding toy with the name."
+0 0 66 29 1 #"\n"
+0 0 17 3 47 #";Returns 0 if the item is not in the inventory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"price-of"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"price-of"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 39 #";A record (phone record) is a structure"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";(make-record s n) where s is a symbol and"
+0 0 66 29 1 #"\n"
+0 0 17 3 15 #";n is a number."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 13 #"define-struct"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"record"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"number"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 22 #";A directory is either"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";1. an empty list or"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";2. (cons r dir) where r is a record and"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";dir is a directory."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";whose-number : number directory -> symbol"
+0 0 66 29 1 #"\n"
+0 0 17 3 47 #";Given a-num and a-dir, finds the corresponding"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";name of the person who owns the number. If"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";the person is not in the directory, returns"
+0 0 66 29 1 #"\n"
+0 0 17 3 28 #";the symbol 'NotInDirectory."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 31 #";(define (dir-func a-num a-dir)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #"; [(empty? a-dir) ... ]"
+0 0 66 29 1 #"\n"
+0 0 17 3 60
+#"; [... (first a-dir) (dir-func a-num (rest a-dir)) ...]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"whose-number"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 15 #"NotInDirectory."
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"record-number"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"record-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"whose-number"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";phone-number : name directory -> number"
+0 0 66 29 1 #"\n"
+0 0 17 3 54 #";Given name and a-dir, finds the corresponding number."
+0 0 66 29 1 #"\n"
+0 0 17 3 41 #";Returns 0 if no number in the directory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"phone-number"
+0 0 67 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 67 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 67 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 67 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 67 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"record-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"record-number"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"phone-number"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"list2"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 9 #"HsinyaLin"
+0 0 66 3 1 #" "
+0 0 20 3 10 #"6265939257"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 9 #"RonRonLin"
+0 0 66 11 1 #" "
+0 0 20 3 10 #"6267157010"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 8 #"TunaFish"
+0 0 66 3 1 #" "
+0 0 20 3 7 #"8888888"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 4 #"))))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";extract : inventory number -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 5 #"Given"
+0 0 17 3 1 #" "
+0 0 17 3 41 #"an-inv and price, it returns an inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 8 #"composed"
+0 0 17 3 1 #" "
+0 0 17 3 36 #"of inventory records (ir) which have"
+0 0 66 29 1 #"\n"
+0 0 17 3 27 #";prices greater than price."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 31 #";(define (extract an-inv price)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #"; [(empty? an-inv) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 3 #"..."
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 5 #"first"
+0 0 17 3 7 #" an-inv"
+0 0 17 3 33 #") (extract (rest an-inv)) ...])) "
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #">"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 4 #")]))"
+0 0 66 3 1 #" "
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"RAISE"
+0 0 66 3 1 #" "
+0 0 20 3 4 #"0.05"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";raise-prices : inventory -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 8 #"Consumes"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"an-inv"
+0 0 17 3 35 #" and produces an inventory in which"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 3 #"the"
+0 0 17 3 1 #" "
+0 0 17 3 5 #"price"
+0 0 17 3 38 #" of each inventory record is increased"
+0 0 66 29 1 #"\n"
+0 0 17 3 18 #";by RAISE percent."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 30 #";(define (raise-prices an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #"; [(empty?) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 4 #"else"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"..."
+0 0 17 3 1 #" "
+0 0 17 3 1 #"("
+0 0 17 3 45 #"first an-inv) (raise-prices (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"raise-prices"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"RAISE"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #")))"
+0 0 66 29 1 #"\n"
+0 0 66 3 16 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"raise-prices"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 39 #";recall : symbol inventory -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 50 #";Removes the inventory record (ir) associated with"
+0 0 66 29 1 #"\n"
+0 0 17 3 23 #";ty from the inventory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 30 #";(define (raise-prices an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #"; [(empty?) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 4 #"else"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"..."
+0 0 17 3 1 #" "
+0 0 17 3 46 #"(first an-inv) (raise-prices (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 10 #"substitute"
+0 0 17 3 1 #" "
+0 0 17 3 1 #":"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"symbol"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"symbol"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"inventory"
+0 0 17 3 13 #" -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 5 #"Given"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"old"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"new"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"an-inv"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 7 #"replace"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"the"
+0 0 17 3 8 #" name of"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 2 #"an"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"inventory"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"record "
+0 0 17 3 4 #"with"
+0 0 17 3 6 #" name "
+0 0 17 3 3 #"old"
+0 0 17 3 1 #" "
+0 0 17 3 4 #"with"
+0 0 17 3 10 #" name new."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 67 3 3 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 67 3 3 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 66 29 1 #"\n"
+0 0 66 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #")))"
+0 0 66 29 1 #"\n"
+0 0 66 3 10 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 4 #")))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 3 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 15 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 4 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 4 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0
blob - /dev/null
blob + 7bdf36e700c22d636a6f4b20240643dee67c8d11 (mode 644)
--- /dev/null
+++ 10.3.1.bak
@@ -0,0 +1,1757 @@
+#reader(lib"read.ss""wxme")WXME0108 ##
+#|
+ This file is in plt scheme editor format.
+ Open this file in dr-scheme version 4.2 or later to read it.
+
+ Most likely, it was created by saving a program in DrScheme,
+ and it probably contains a program with non-text elements
+ (such as images or comment boxes).
+
+ http://www.plt-scheme.org
+|#
+ 29 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 18 #"java-comment-box%\0"
+1 0 23 #"java-interactions-box%\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+ 0 0 73 0 1 #"\0"
+0 75 1 #"\0"
+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
+#"Standard\0"
+0 75 12 #"Courier New\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"framework:default-color\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"text:ports out\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+#"text:ports value\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+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
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 39 #"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 42 #"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 36 #"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 36 #"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 31 #"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 41 #"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 38 #"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 34 #"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 2 33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+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
+0 -1 -1 2 35 #"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 37 #"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+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
+-1 -1 2 35 #"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+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
+0 0 -1 -1 4 1 #"\0"
+0 70 1 #"\0"
+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
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+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
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+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
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 71 1 #"\0"
+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
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 4 1 #"\0"
+0 71 1 #"\0"
+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
+-1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+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
+-1 0 1 #"\0"
+0 75 12 #"Courier New\0"
+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
+255 255 1 -1 22 1 #"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+#"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+22 1 #"\0"
+0 -1 1 #"\0"
+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
+15 1 #"\0"
+0 -1 1 #"\0"
+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
+14 1 #"\0"
+0 -1 1 #"\0"
+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
+20 1 #"\0"
+0 -1 1 #"\0"
+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
+17 1 #"\0"
+0 -1 1 #"\0"
+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
+ 0 1160 0 17 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 66 29 1 #"\n"
+0 0 17 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 66 29 1 #"\n"
+0 0 24 3 7 #"#reader"
+0 0 22 3 1 #"("
+0 0 14 3 3 #"lib"
+0 0 66 3 1 #" "
+0 0 19 3 25 #"\"htdp-beginner-reader.ss\""
+0 0 66 3 1 #" "
+0 0 19 3 6 #"\"lang\""
+0 0 22 3 3 #")(("
+0 0 14 3 7 #"modname"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"10.3.1"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"read-case-sensitive"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#t"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"teachpacks"
+0 0 66 3 1 #" "
+0 0 22 3 3 #"())"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"htdp-settings"
+0 0 66 3 1 #" "
+0 0 22 3 2 #"#("
+0 0 20 3 2 #"#t"
+0 0 66 3 1 #" "
+0 0 14 3 11 #"constructor"
+0 0 66 3 1 #" "
+0 0 14 3 17 #"repeating-decimal"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#f"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#t"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"none"
+0 0 66 3 1 #" "
+0 0 20 3 2 #"#f"
+0 0 66 3 1 #" "
+0 0 22 3 5 #"())))"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";An ir (inventory record) is a structure"
+0 0 66 29 1 #"\n"
+0 0 17 3 52 #";(make-ir s n i) where s is a symbol, n is a number,"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #";and i is an image."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 13 #"define-struct"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ir"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"image"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 23 #";An inventory is either"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";1. an empty list or"
+0 0 66 29 1 #"\n"
+0 0 17 3 61
+#";2. (cons ir inv) where ir is an inventory record (structure)"
+0 0 66 29 1 #"\n"
+0 0 17 3 25 #";and inv is an inventory."
+0 0 66 29 1 #"\n"
+0 0 66 3 9 #" "
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";contains-doll? : inventory -> boolean"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";it contains 'doll. Return true or false."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 32 #";(define (contains-doll? an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 13 #"; [() ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 57 #"; [() (first an-inv) (contains-doll? (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"contains-doll?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 4 #"doll"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"contains-doll?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";contains? : inventory symbol -> boolean"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";Takes in an-inv (inventory) and searches to see if"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";it contains keyword. Return true or false."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"contains?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"contains?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 7 #"keyword"
+0 0 22 3 4 #")]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"list1"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 5 #"robot"
+0 0 66 3 1 #" "
+0 0 20 3 5 #"29.95"
+0 0 66 3 1 #" "
+0 3 23 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 6 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\09\0\0\0u\b\2\0\0\0{\340\336\305\0"
+ #"\0\n\341IDATx\234\345\\}LM\377\37\177\237n\17\267\242\334\362\34B4"
+ #"\222\321\242\31\e\252\371F3$k\306<\305\230\247YFT\2141\305D\331\210)"
+ #"\263\306jhL\211\262!\326\252MC\321\246\247\215<w\251[\327\275J\267"
+ #"\373\371\375\361\351{\234\316\303\347|\316\271'\337?~\257\277\3169"
+ #"\357\367\347\375~\235\367\375<\274?\17\347\2r\0\277~\375r\2448\306"
+ #"\346\315\233)5\301AOYYY\16Z\0\0ooo*MG\334\324\326\326\28d\341\375"
+ #"\373\367\b\241\232\232\232I\223&\311*\253\367\344\353\353\v\0[\267nU"
+ #"m\201\305\314\2313i\336\331\t\324\342\373\367\357\b\241\372\372z\325"
+ #"\26\316\236=\3130\f\3030\257^\275\242\321g\20B\252\235a\264\267\267"
+ #"\e\f\6EE\354v\273N\247\3\0E\336\325\307\225\205\301`\b\f\fTT\4\23U\n"
+ #"\r\270\2@CC\303\247O\237(\225\31\206\301\27K\227.U\346\306\361\226"
+ #"\2011o\336<JM\325\256\265\211+\0l\330\260!<<\334\323\323\223a\30\275"
+ #"^\357\343\343\23\30\30x\350\320\241\242\242\242\246\246&\236\362\344"
+ #"\311\223\221\212v\242\364\345\310\241rvv&\273suu]\276|\271J/\332r\5"
+ #"\00077\267\261c\307\32\f\6\17\17\17\2i''\247\314\314\314\277\3155??"
+ #"\37S$\253577\27\24\24\254Y\263\206\313\330f\263\321;\322\200+\0\254"
+ #"\\\271RE\301s\347\316)\252\204\332\264\255k\327\256\251(E\337\315ah"
+ #"\303\225\\5\245\360\376\375{E\372\232\365Y\\\364\366\366J\211\20\247"
+ #"!~\370\360A\221Y\r\362\1\206\351g\4\17KRf\271\312^^^f\263"
+) 500
+(
+ #"\231\236\200\366q%\373\346J\273\272\272\24%\6\3R\a(C\325\323\323\243"
+ #"\327\353\351\315\16\bWz\f\e6\214^\371?\346\32\31\31I\257\374\37sU\4"
+ #"\355\271\326\325\325\5\5\0051\2\b5E\37\22 \223\26\251@pp0\245\346"
+ #"\344\311\223\333\332\332\350-k\20Wax\"\"\"n\334\270a2\231\254V\253"
+ #"\311djll\274t\351\222\260`HH\210\262\341@E\316\301\303\335\273wU\224"
+ #"\2324i\222R\2\32pU\264R\364\366\355[^\260ZZZ\26-Zt\373\366m\331\262"
+ #"\232\315\267d\261`\301\2\a\177\341\1\344j6\233\203\202\202\350k\243"
+ #"\335n\37@\256\356\356\356\nZ\206\30\302\303\303\337\275{\207\20Z\261"
+ #"b\205lh\35\352\a\314f\263\272\202\36\36\36\a\17\36D\b=~\374\330\337"
+ #"\337\37\0\2\2\2dK)\350_\273\273\273\277~\375ZZZ\372\345\313\227\246"
+ #"\246\246\353\327\257+\342\267j\325\252\177\376\371'>>^4\267b\273\5"
+ #"\22h~\353A\203\6)\242\305\242\250\250\250\247\247\207\306\305\203\a"
+ #"\17d\311\320\326\327\254\254,.\t\235N\267q\343\306\214\214\214\262"
+ #"\2622\234/;\210\327\257_\3\200\311d\322\200kWWWww7{\233\220\220\340"
+ #"\0205\1ZZZp\24\202\203\203+**Dud\332\226\237\237\37\316<\364z\275"
+ #"\233\233\e\3030c\306\214\1\0\27\27\27u\265B\n\b!\0())\251\255\255MKK"
+ #"c\30\346\316\235;<\35I\256\376\376\376\f\303|\376\374\31_\263\357"
+ #"\372\361\343GmYbtvv\2@GG\a\3030\205\205\205mmm\a\17\36d\30&,,\214"
+ #"\325\21\357\a\330t\244\247\247Gt\211j\330\260aIIIiiiZq\345%\\\6\203"
+ #"\1\257\230s\23#\21\36\335\335\335\370\2IO\233\364z\375\233"
+) 500
+(
+ #"7o\264\241\t\0\0\337\276}\223\325\21\251\3eee 7\277\323\353\365\332V"
+ #"\6\\\331\274\275\275\t:\"\\\355v;\215\365\236\236\36u\264D\321\336"
+ #"\336\16\0\236\236\236\4\35\21\256K\226,\2215\355\345\345\245\232\226"
+ #"(\236<y\2\0\323\247O'\350\250\317\aF\215\32\245\272\254\20\270%)\256"
+ #"\0034\360\360\360P\272OD\306\217\37?duTrmmmU\272OD\206\315f\223\325"
+ #"\21_{\343-\247\t\341\345\345\365\343\307\17\rG/\251\25;.\23\225\\e"
+ #"\25\224\202\206\353\377\367\272\213\n|\377\376\235FM\204+\36B\b\320v"
+ #"\24\0\200\322\322R\0\2308q\242\214\2360M\2342e\212\350s\26\231\231"
+ #"\231d\5\245\300m4==](\342:\22q)\365\16,\206\17\37\256-W\354\261\276"
+ #"\276^T\364\347Z\252\244\250\321\23'N\20~\20\325 \30\344>\247\235\307"
+ #"\272\272\272j^Me\301\333\317\341\267-QB\f\303\260\317\253\253\253"
+ #"\265%\204g\205\242\340\rf|\256x\226\23\32\32*Z\30!\324\320\320\3400"
+ #"\275~HMM\225\22\311p\305+\24\341\341\341\302\2228\t\222\355\321\224"
+ #"\342\376\375\373R\"\31\256xf\262h\321\"a\311\2337o\202\3\353BR\300"
+ #"\263BQ\360\23\32\232&\t\0\353\326\255\303\327{\367\356\25\325q\260"
+ #"\23\210\210\210\20\212pUfoi\307\330\213\27/\342\213\301\203\a\323"
+ #"\307\214\36\261\261\261\302\207\274\337\220\226+;\23\322|\366\2021m"
+ #"\3324\341C\324?\355R\234\273h\313\225\255\254\v\27.\24JIq\315\315"
+ #"\315\5\0\336\344\4\37pd1a\302\4-H\366!##\203 5\231L\334\333~\\kjj@p"
+ #"\304\253\274\274\234{\353\370Z6\27\35\35\35\4)o7\252\37\327+W\256\0@"
+ #"tt4\367\341\356\335\273\271"
+) 500
+(
+ #"\323v\37\37\37\r8\376\v\362\224\2207\210\366\343\212k\317\2349s\330'"
+ #"\305\305\305v\273}\307\216\35\354\23u\307E\244@^\274\371\365\353W"
+ #"\277{\251\316\225]\325\342\351\260uH\223\316\225\373\346Bivv6H\365"
+ #"\257x\307\21/\270\272\271\2719\0220JX\255V\202\224\267\264\341\f\0"
+ #"6\233m\320\240A\334@r\301\353\244\310\255A[\360\332\261S\\\\\234\213"
+ #"\213\213\24Q\0\350\354\354\344\276\37a\370\326\34\274\250;\345\345"
+ #"\345\2617\302\235\273\352\352\352\223'Ovvv2\f3\177\376|P~\250\212\6)"
+ #"))\242\317\277|\371\322\357~\317\236=aaa\344\26p\367\356]\254\214\20"
+ #"\332\266m\e{\335\332\332J\263\250\210\21\20\20\20\23\23s\354\330\261"
+ #"\364\364\364-[\266pE\b\241\254\254,\235N\347\344$2\216\2624@\247\323"
+ #"%&&\222\271\262\355\fq\366\322\265\202N\247\353\243\"\201?\375@oo"
+ #"\257\354\20\217k3\36E\204\ao1\30\206\211\214\214|\372\364\251\325jMJ"
+ #"JZ\265jUNN\16\353\306b\261Hu\314l\222\212\20\32;v,\276\346*\377\376"
+ #"\375\273\357\312\331\331\371\350\321\243\344\270b\315S\247NI\275}KK"
+ #"\213h\301\252\252\252\303\207\17\357\332\265+!!\341\305\213\27F\243"
+ #"\261\245\245\5\2175\301\301\301\253W\257\226u\212q\346\314\31\204P"
+ #"\337\330@(SRR\2\0\215\215\215<Cqqq\3447\354\352\352\"H]\\\\\306\215"
+ #"\e\307{gww\367\3\a\16\30\215F\241\221\321\243G\3B\210\320\266\216\34"
+ #"9\302\376@<\2348q\202\314\265\267\267\227 \345\366\203K\226,\251\251"
+ #"\251![\333\277\177?`\243R1\300\266\356\335\273'\24=|\370\220l\35!TYY"
+ #")%b\203\352\344\344$k\a!\224\222\222\322\27\2605"
+) 500
+(
+ #"k\326\3606\244\361\242\225TP\21B?\177\376\224u@\250]\270\267\6\0///"
+ #"\32\256s\347\316\355g\v\347\332,\2\2\2h\254\220\271\376\376\375[Tt"
+ #"\372\364i\354\345\302\205\v\224\246\372\365\275\353\327\257G\bUUU]"
+ #"\276|\271\255\255M\252{R\4)#\354\n&\315\361\307\364\364t\0M\227\320D"
+ #"\203\221\232\232**b\307\352g\317\236\221\215\334\272u\253\217\362\0"
+ #"0\374\3\0000\30\f\4)\0\224\224\224\310\32\371K\\\261\v\321\263\e\0"
+ #"\220\227\2277u\352T\204\220\325j\335\267o\337\214\0313\244\16D\32"
+ #"\215\306\277\3045))ITz\376\374y\362d\323\325\325\365\217\376\337\341"
+ #"\212\203\307\203N\247\v\t\tA\b%$$\0\0\3030~~~\261\261\261\307\216\35"
+ #"\23\267\366w\270\212V\266\331\263g\263I\26\2255u$\36=zDe\235\310\265"
+ #"\265\265UQ\203Q\271\277\245\311\241\fE\a\313A\365^\234\242\325m\2556"
+ #"\32Tr\2459\236\302B\263-\6\372\352\302\205\257\257/\215\32\0\214\349"
+ #"\22'\371R\n\271\271\271\224NUruqq\241\262\16\260s\347NBP\0\0w[4PY\a"
+ #"\350\253\240\354\261\370\227/_R\232\32\360}n\362\21\26E\30p\256\25"
+ #"\25\25Z\231\32p\256x\277\35\237\230\24b\331\262e\364\246\6\234\353"
+ #"\317\237?\1`\356\334\271\242R| \253\253\253\213\306\324\200s\265X,\0"
+ #"0k\326,Q\351\376\375\373\341\337]>Y\f8W\274\256\350\347\347'*\305-Ox"
+ #"\324U\34\264=j\177p\323J\2X/\345\345\345d\35\32k*\343:t\350PE\372J?"
+ #"\177\22\205J\256\362\347h\6\0*\271\322\177<\202\367o5\331\35W\306u"
+ #"\361\342\305\f\303\214\e7.&&\206\240f2\231\330\377\374(,,\4\200\347"
+ #"\317\237"
+) 342
+(
+ #"\253\246\370\a\264\255\t!\274\242\30\32\32j4\32\267o\337\3165\22\32"
+ #"\32\32\37\37\177\372\364\351\374\374|L\216k\37\244\27\202\270j\351"
+ #"\351\351W\257^%\20P\362\251\227\222w\343\222\300\211\271P'11\221\367"
+ #"J\0p\374\370qG\271\262\25\216R\337f\263\231\315\346\250\250(\350?"
+ #"\337\262\331l\211\211\211\274\3566::\32!\324\334\334<b\304\bB\266I"
+ #"\353{\310\220!\0000b\304\bJ}\26\354v\5\315\337\"l\332\264\t\0:::\304"
+ #"MQVk\234\260\342\277pP\4v\345\237\346\323m\34\221\312\312JQ)-W\354I"
+ #"\352,\24\18w\241<y\202\2671\244>\356\244\345\212O&)\335\244e\207+"
+ #"\312\357\0\212\213\213\201\260\371\255\250\362\361\364-\26KNN\316"
+ #"\332\265ki\16\226\310\32gO)dgg\213{W\304\325h4\322\204\207\305\370"
+ #"\361\343\353\352\352\310\\-\26KAA\1w\252\363\371\363g\r\270\"\2123"
+ #"\332111W\256\\\261X,X_x\336\340\366\355\333\311\311\311\370\224\255"
+ #"\20\311\311\311\222\256\225r\305\260\333\355&\223\311l6\323\364D\224"
+ #"?BTT\24\371\263\323\377\1\250\227\355f\254\315s9\0\0\0\0IEND\256B`"
+ #"\202"
+) 0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 20 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 4 #"doll"
+0 0 66 3 1 #" "
+0 0 20 3 4 #"9.95"
+0 0 66 3 1 #" "
+0 3 21 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 5 500
+(
+ #"\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"
+ #"DATx\234\325\\_HS\357\e\177\217\231\332\\[h\00313m\264j!\254\314V"
+ #"\220F--\252\v#\f\242\302\274\20\262\b\212\f\274H\"\"\250 \272\311"
+ #"\253\376\b\321E\27%\366\207B\363b\375!\212\32\264\213\246i\323L\233"
+ #"\2469k\233f\233\353\375^\274\277\316\357\264\271\355l\347y\316\231"
+ #"\237\253\355\374\371<\317s\236\347}\337\347\375\313QJI2!??\177``\200"
+ #"\20\242\321h~\376\374\211*+\5\225=\0010\313\t!\36\217'==\375\375\373"
+ #"\367x\262\270d\363<\307q!WV\256\\\351p80d%\235\347\351_tww\263+\235"
+ #"\235\235{\367\356\305\220\225t\236\17A\177\177\177AA\1!\4CO%=\237"
+ #"\225\225\305\t0\3433K\226,\241\224>x\360\0E\3\252\20\334n7!\204\343"
+ #"\270\246\246\246\307\217\37\23B\32\32\32d\326A\261\260\337\272ukff"
+ #"\346\375\373\367\371+Z\255\26\273m\vA\252\234\302\204\350\352\352\32"
+ #"\34\34\24^)++\223Y\a\305<\177\352\324\251\214\214\214s\347\316)\""
+ #"\235A\311\332\236\343\270\17\37>\30\215F\245\24P\270\235_\265j\325"
+ #"\263g\317\224\222\256\244\347m6\333\332\265k\211\2106\234\343P\364T"
+ #"\254\302#\204\24\27\0273\223\204\215\274\320H\376:R;\237\24\31^\244"
+ #"\f\207\a\222\222I\221\333SJ].\327\262e\313\302o\231L&D\367\310\234T"
+ #"\305DEEEJJ\n!d\371\362\345\330\262\222\"\354\225BR\204\275R\230\255"
+ #"\306\373\375\376\232\232\32.2\366\355\333\347p8\376\374\371\23\215\5"
+ #"\273\\a \336/u\372\364\351\231yd\326;\34\323\323\323\337\276}\23\363"
+) 500
+(
+ #"\344\376\375\373\2311\375\375\375\"\311\207\206\206v\354\330!\374\20"
+ #"\255\255\255\374]e\214\267\331l\221\274\364\365\353\327Ho\2358q\342"
+ #"\356\335\273\211I\274z\365jFF\6/\245\242\242\202\312o\374\372\365"
+ #"\353\305\4\352\272u\353\220\24\370G\f\222\214\230\202\315f\263\325j"
+ #"\25\336u\273\335\365\365\3652\350f\265Ze5\236\rZ\361\350\350\350\210"
+ #"\364dss3\377\330\355\333\267\221\364\31\36\36&2\344\366|\336^ZZ\372"
+ #"\374\371\363\304\336ER\22\267\235W\253\325\354\a\2454^\313\331[\26"
+ #"\213\205\210\350\371$\b\244\270\242\224\356\332\265\vD\4\236\236X"
+ #"\375y\255V\353\361x\bD\304RJ\221<\17\37\366>\237\217\3438\217\307#"
+ #"\364\233D0\373\323\322\322@\330x\300Wx\314K\340\264\32\215\306\353"
+ #"\365\302\322\2{\36\311rB\b+D\327\257_\a\344\204\364<\263<//\217\237c"
+ #"\a\a\354H&X\205\207\347s!\366\354\331\3I\a\322f\234<y\22\212*&>}\372"
+ #"\4E\5P\346_\277~}\371\362e*\327p\30\340$\207T\343\17\37>\274a\303\6"
+ #"\20UD\342\325\253WPT\222\312<+\347\273w\357nii\1\322'6\276\177\377"
+ #"\16E%\265\302{\364\350\321\316\235;AT\21\t\266J\5\6\t\327\26g\316"
+ #"\234)//\207\252{\304\243\275\275\35\212*\361f\23i\3620&\6\6\6\26/^\f"
+ #"B\225H\330\263\242\16\233l\211\27\r\370\305\343\346JOO\367\373\375\6"
+ #"\203\341\343\307\217PJ\304%\375\367\357\337Plq\e/O&7#jjjrss\317\237?"
+ #"\17E\230\210\361\212X\336\336\336\276m\3336X\321qX\242\240\317\t\316"
+ #"G\27\233\3411\313KJJ`\305\213Dee\345\347\317\237\341y\305\264\207l"
+ #"\205\344\2349s\240\32\330\270\300j8"
+) 500
+(
+ #"\ffQ\261\244`\300\367\365\365-]\272\24Iz\354v\376\332\265kH\262c\202"
+ #"\37\267\34\37\37G\21\20=0\304<\223\0~\375\372\25\345\256\313\345\312"
+ #"\313\313c\242C\246\264`\21\315\363\354\303o\331\262\5\374\213[\255"
+ #"\326\355\333\267G\21\312@\261\303-\322Waw5\32\r\322W'\204TUU\365\366"
+ #"\366\216\214\214\\\272t)33S\250Unn.\222\334\177t\230\361\352\255["
+ #"\267\br\365\36\311\31\t\317\300'\200\320\332\336h4vvv\22\345\222\319"
+ #"\221b2\2318\216+...**\3428\216Y\16\233\314\0vE\320\361\344\311\23"
+ #"\330\350\312\311\311\241\224\366\366\366\212\17\351`0\350t:a\325\b\a"
+ #"\311\316\316F\265\234RJ\376V\253\204\220\2337oFyrllL\245R\2058\303"
+ #"\345r\201\253\364?}\220x\205hkk\23\376\235;wn\244\240+))\231\232\232"
+ #"\22>\334\323\323\303na(\246\330\362\323\356\356\356\276\276\276\224"
+ #"\224\24\275^\317\22\330(P\253\325>\237\17\\\at\343\3\201@\24W+\v\364"
+ #"\345\247\251\2510\323\201~\277\37\204G\210Y\263\352Z\311\301\f)\300"
+ #"\352\223I\206\34\306\267\266\266J'ihhp:\235\322y\376\1F\23\22\2\220"
+ #"\211\35\257\327{\364\350Q\351<B\310Q\346\215F#\310\356\177\330A{\"O"
+ #"\330\257Y\263\6\204\207_\330\a\59\214\327\353\365 <G\216\34\1\341"
+ #"\341!\207\361\205\205\205 <\26\213\345\335\273w T\fr\30?\177\376|("
+ #"\252\3\a\16@Q\221Y\267\301htt\24\220M\16\343GFF\240\250ZZZ\0g\207"
+ #"\345\330H\374\345\313\27(\252M\2336\31\f\6\376\24\31\211\220\303\363"
+ #"?~\374\0d\343{\370\322!G\222\223\223\223\303\266u\200`zz\32\252\2478"
+ #"\313j{\2\327G"
+) 500
+(
+ #"&\362\30\37s\240&^@\305\221\34\306WVV\302\22\212\334\234\27\e\260"
+ #"\375\244p`\214\275^\270p\301\357\367K\347A\367\374\275{\367\3009\217"
+ #"\35;\326\324\324$\235\a\275\266\317\316\316\36\e\e\3\247\5\31\325"
+ #"\222cS!\206\b\220\301l\364\260GZ\220\355\363\371\216\37?.\221d\326"
+ #"\214\336\206CzL\315\262^\235\20\v\26,\220\310\200k|[[\e\36\371\215\e"
+ #"7\244RHo-\243\0\233\277\252\252J\312\353\210e\336\343\361\224\226"
+ #"\226\332\355v$~\"\271\330#\366\347W\254X\321\325\325\205\307O$\257 A"
+ #",\363CCC\32\215\6\217\237\20r\350\320!)\257c\205}ZZ\332\2337oV\257^"
+ #"\215A\16\5\24\317766\6\2\201$\267\234 y\236\343\270\262\2622\31\316w"
+ #"\2248\252\203U\346\37>|\210\304,\204\324\357\v\321\334\206\342\342"
+ #"\305\213\30\264\341HMM\225\364:\220\17\376\217\362\362\362\247O\237"
+ #"\202\323\206C\257\327_\271rE\n\3\312\261\21\340\234H\202\340\313\374"
+ #"\302\205\v\3019\303\1r~\n\274\361\330Y\35\371k9;EC\22\17l\210NNN\206"
+ #"\257\37\5\304\324\324\324\274y\363\b\320\242p`\317\253T*vv)\0066o"
+ #"\336\fh9\301\350\330 \325v|!\257\253\253\3#\225\334\326\206\242\260"
+ #"\260\360\355\333\267\200\204g\317\236\345\265\35\37\37\adFIr\230\242"
+ #"\215\215\215RHB\346\341\241t\23\2\205TX\347\305\373\256\333\355\326"
+ #"\351tB\263\233\233\233\21t\244\24i\306fbb\202_9\304q\234\230\223}"
+ #"\202\301`GG\207V\253\315\312\312\342\327\236\214\216\216RJ\27-Z\204"
+ #"\241$!\230cl!3J\6\203\201\235\354%D \20\350\351\351\231\361\2703v"
+ #"\3047\245\264\276\276\36IC,\343\371#\341(\245/^\274\210\231"
+) 202
+(
+ #"\220\251T\252\203\a\17\316\270\323rbb\302\351t\n\347\271\241\224D\31"
+ #"\303\v\6\203w\356\334\251\255\255e\1777n\334\310\216]\366x<6\233\315"
+ #"\341p\f\17\17\27\24\24\30\f\206\242\242\242\230\303\357:\235nrr\222"
+ #"\377\v\271\32\r\352+\na\267\333\a\a\a\241\330\230\236\371\371\371"
+ #"\265\265\265!;p\2442\3r\361\250\256\256\6d\253\253\253\3d\23\2 \267"
+ #"\177\371\362\245\305b\t\337\6\"\235\31\e\222\312\274\335n7\231L\302+"
+ #":\235\256\272\272\332l6\233\315fi\212\311\1I\236\347\353p\265Z\355"
+ #"\365z\201T\222\17\211'9\314r\266\3s6ZN\b\371\17\24\274S\2\f\350I\266"
+ #"\0\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 26 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 6 #"rocket"
+0 0 66 3 1 #" "
+0 0 20 3 5 #"59.95"
+0 0 66 3 1 #" "
+0 3 21 66 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0 5 500
+(
+ #"\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"
+ #"9IDATx\234\315\233[H\24_\34\307\177\353\256m\333n\332\305Z\273mIX"
+ #"\202\31\226\255\21E\322B\241ADR\30X`\5BDB/A\21R\21\24\4\322\205\324"
+ #"\207\350\16\25\21t\243\202B\"\272\240\17=\264eXRY\232!\262\233i\271"
+ #"\272\332\371?\374\326\343\354\354\\\31693\343\376\277/;s.\277\363"
+ #"\231\337\271\314\271\314\332\b!`\231\334n\367\237?\177\304\362\246"
+ #"\230\213\"Uii\351\337\277\177\205\263;LD\221\312f\263\31\264`\211"
+ #"\317\244X\302\210\26\326&\312\351t^\271rE$'1U2\17\345\346\346b\17"
+ #"\313\316\316\3465e&\331\266m\333\244Xyyy\30\276u\353V\1\27\230F\326"
+ #"\321\321!\305\272x\361b\\1\0~\277?9d3f\314\320h$\225\225\225\274n"
+ #"\263\21\223FZi\vS\264i\263\361\225eN\337\334\276};\275^\273v\255b"
+ #"\232\23'Np\3314\301gCCC\251\251\251\364V\315`ss\263\317\347\363x<"
+ #"\254v\215\2670Y=j\250\274\274\234\335\254Q2\256\207\4\200\262\2622V"
+ #"\313\306\300F\3116o\336\314\222x\362\344\311\254\226\215`\235;w\216"
+ #"\253Up\265\37C=@w\244\220\311\341p\f\17\17wvvfff\352&\266\374\215."
+ #"\325\223'O\0 ++\213)\265pUJ\235t\373\366m\256,L)\205\261B\241\20\26S"
+ #"XX\310\236\353\300\201\3\0\320\325\325e!\331\316\235;\221\254\273"
+ #"\273\233=\327\347\317\237\1\340\310\221#V\221\235={\26\261\262\262"
+ #"\262x\3632V\250 \231\327\353\305\2\232\233\233y\363.]\272\324B2#\35"
+ #"\350\321\243G,\31E\3063BHJJ"
+) 500
+(
+ #"\n\0\270\\.\261u\e\313\214Hd<;\177\376<^\24\27\27\vdg\225@u\30\311"
+ #"\213\n\4\2\17\37>\324)E\300\256q\262k\327\256\25\24\24h\247\341ng"
+ #"\321ht\334\270q\224L\254\242\320\210vv\356v\206=\313\240p\16\374\346"
+ #"\315\e\2154\334>\343\235_h\330\261\333\355CCCj\t\306t\256!\323\360"
+ #"\360\260F\2548YQQ\221p^\26\211\223m\330\260\301x\361_\276|Q\215\343"
+ #"\355\360\302\31\25\355\344\347\347\253&\20\263X\\\\l\f\2148\235N\355"
+ #"'\24\254M\351\242\\L\313\226-\323N\300Gv\343\306\r\274\b\4\2\202D#Z"
+ #"\271r\245N\n\256*\310\317\317\27\310\245(:d\334\277\177\337\204\332|"
+ #"\373\366-\277w\224\205\363(\0x\372\364\251r\n\256\a\305,n\267\333"
+ #"\270\317\b!>\237\17\0\\.\227b\254H\17X\267n\235\210\227\22\204\373Y"
+ #"\375\375\375\312\321\354\217\30\211D0\313\207\17\37L\361\331\313\227"
+ #"/5\308\310\36<x\300\3730\332\n\207\303\32\69j\363\365\353\327B\225"
+ #"\246\252I\223&i\304r\220\275\177\377\3360\f\2078\346gn\267\eWJ\354Y"
+ #"\364\213\267\331\324\fr\370\f\261\260\253\217\201\270G\215\377/\331"
+ #"\202\5\vL,\336n\267\3\200\342\234\233\233,''\307\4\242\21\341&\274r"
+ #"\337b\37~0}__\237\31cYL\370:\331\267o_b\24\267\317\334n\267!/\305k"
+ #"\316\2349\0 ;MC\261\222\365\365\365\231\bD\205d?~\374H\214b%kkk3\223"
+ #"(^\3645%\25+Ycc\243\25101M\2348\21\0\332\333\333\23\243X\311\276}"
+ #"\373f&Q\274\350,F*V\262\337\277\177\233\n\23\247\201\201\201\304\300"
+ #"$\223)z\v\305J\366\353\327/\223`\342\324\333\333\253\26\225\344Q\243"
+) 500
+(
+ #"\273\273[-*\231{A\240\331\261\222\334\316\24G\177T\222}\326\332\332"
+ #"\252\26\225d2\305\361\2\225d2\324\370\361\343\23\3\365\277?{\374\370"
+ #"qKK\213\5<\243\222~T1*\215\311\23\375\20\220\20\262b\305\n\335\364"
+ #"\272\232?\177~OO\2174\4m\372|\276\304\304\252>\v\207\303S\246L\201"
+ #"\221\205\215)}\263\265\265U\361\304i\372\364\351\211\211U\333\31buuu"
+ #"\341\255\306k\204K\204\220C\207\16\311\2\247N\235\312Jv\341\302\5\0("
+ #"//\2376m\32\206h\274FxE\317F\251\322\323\323\1`\375\372\365q\241\211"
+ #"\25\214\a\344\16\207C\32H\273\217\221v&m^\204\220\236\236\36\264I"
+ #"\327\1\322s\\yI\273w\357V$\320x\22a544\240\315{\367\356\321\300P("
+ #"\244@\326\331\331\211IO\237>m5\31\0\\\275z\25mvtt\320\360H$\22\211D"
+ #"\344d\32\305[\3413\\\6\3@4\32\225\206\327\327\327+\223566\216\r\31"
+ #"\235Y%Fedd\214\206j\27\214\37\f\254^\275\332D2\224\254\253Q\230\330"
+ #"\250\201\335$77W\251\233\3\0\314\235;\27\30\216\27\4\24\215Fe!\350"
+ #"\313\30Yuu5h\236\252fdd\0\300\314\2313M'\3\0\277\337/\275\305o\226cd"
+ #"g\316\234\201\221\25\263\242\262\263\263\1\200\16\274\346j\371\362"
+ #"\345t\23\30\0\366\354\331\3\0@\b)++\3\200\324\324T\215\326\200{\343"
+ #"\257^\2752\275\235\241\202\301\240\374\225Jojjj\2643\3@0\30\264\210"
+ #"\f\355\307\255\203\350nG\177\177\277n\316\266\2666\353\310._\276\34W"
+ #"\307{\367\356\245\316K.\31Q\334\230\266\333\355\377\a\262]\273v-Z"
+ #"\264\b\217ucd\263g\317f!{\367\356\235\245dtW\237\320=G\227\313\245"
+ #"\333\267"
+) 500
+(
+ #"\235N'\235\267X$\304\330\261c\a\320\361LcuE\345\365z\0257\aM\327\245"
+ #"K\227\0 \5w\227\177\376\374\251\233\241\260\260\360\372\365\353VcQ"
+ #"\245,Y\262\4\0\6\a\au\223\346\344\344\334\275{\327R\232\232\232\32"
+ #"\274\370\372\365+\34<x\20ot\233'\276\6,\355\1\263f\315B\230`0\230"
+ #"\302\372E\260\312J\332\\\321\r\230\t\23&\214\276\235\314z\356\364"
+ #"\364t\261\214\5\5\5\24\221\340\234\226\213L\367k\373P(\324\336\336.@"
+ #"&u^\214\f?\204\371\367\357\37\243\211[\267n\351\226\301\213U__O\261*"
+ #"++cd\363\346\315\3\0\331\216\203\232\26.\\\250\233F\200L\352\260p8L"
+ #"\360\35\260q\343F\0\370\364\351\23K#mii\261\331l6\233m\325\252U\32"
+ #"\311\214\314\313c\347\353ddEz\364\350Q\261G\244\262\333\355iii~\277"
+ #"\237B\vX\e\r$\204\340\361\342\226-[\330\311\6\a\a\217\35;\246\373"
+ #"\364F\311p7E\373\277+w\356\334I,\t\377#\241\241\343\307\217\e\"#z\3G"
+ #"mm\255\266\e4^n\\dk\326\254\341 \223mw\261\224\204\332\277\177?K\372"
+ #"\212\212\nE\343:d8!\241\222n\332\260\210\205\214\356ndff\262\222}"
+ #"\377\376]\212%0\325f!\243\366\353\352\352X\311\244Xb\337O555\325\326"
+ #"\326j$\220\316X\345\245\343\17\236\315\252a\t0I\355h\304\342?N\1\300"
+ #"\343\361(\223-^\274Xj\242\264\264\224b\5\2\1\203d\325\325\325\32\261"
+ #"\250\212\212\ne2\374\213\20^?\177\376\334,\207\21B\362\362\362\0@m"
+ #"\366AKI\374kR\254\340\252\252*\n\341p\214\36\22|\374\370\321 \31~"
+ #"\264YRR\242M\246\20\205?uuu\200\263\357\21y\275^\203LRy<\236"
+) 162
+(
+ #"\242\242\"Y \356/)62B\317P\320O8\35B\261\254\246\330\325\333\333+"
+ #"\373\23\375\300\300\0\235\335l\332\264)1Kl\275\231\226\226f\"\207"
+ #"\242JJJ\244\267'O\236\244\327\3623\n\24\272\356\346\315\233\322\300"
+ #"\206\206\6\23\253\222\352\331\263g\364Z\372}\221bb\371\0162\313\326"
+ #"\213\21\341\266\346\213\27/\22\275\243Jv\370\360a\0hjj\262\224\214("
+ #"\315:u\310\b!UUUVc\305J\345%\eKQ\254S\247N)&\370\17#l\0_X\204\310m\0"
+ #"\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 4 #"))))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 57 #";show-picture : symbol inventory -> mixed (image/boolean)"
+0 0 66 29 1 #"\n"
+0 0 17 3 56 #";Given name and an-inv, this function produces the image"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";of the toy with the corresponding name. If"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";the toy is not in the inventory, false is returned"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";instead."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"show-picture"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"false"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"show-picture"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";price-of : symbol inventory -> number"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";Given name and an-inv, it finds the price"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";of the corresponding toy with the name."
+0 0 66 29 1 #"\n"
+0 0 17 3 47 #";Returns 0 if the item is not in the inventory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"price-of"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"price-of"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 39 #";A record (phone record) is a structure"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";(make-record s n) where s is a symbol and"
+0 0 66 29 1 #"\n"
+0 0 17 3 15 #";n is a number."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 13 #"define-struct"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"record"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"name"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"number"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 16 #";Data Definition"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 22 #";A directory is either"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";1. an empty list or"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";2. (cons r dir) where r is a record and"
+0 0 66 29 1 #"\n"
+0 0 17 3 20 #";dir is a directory."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 42 #";whose-number : number directory -> symbol"
+0 0 66 29 1 #"\n"
+0 0 17 3 47 #";Given a-num and a-dir, finds the corresponding"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";name of the person who owns the number. If"
+0 0 66 29 1 #"\n"
+0 0 17 3 44 #";the person is not in the directory, returns"
+0 0 66 29 1 #"\n"
+0 0 17 3 28 #";the symbol 'NotInDirectory."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 31 #";(define (dir-func a-num a-dir)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #"; [(empty? a-dir) ... ]"
+0 0 66 29 1 #"\n"
+0 0 17 3 60
+#"; [... (first a-dir) (dir-func a-num (rest a-dir)) ...]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"whose-number"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 15 #"NotInDirectory."
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #"="
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"record-number"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"record-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"whose-number"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-num"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";phone-number : name directory -> number"
+0 0 66 29 1 #"\n"
+0 0 17 3 54 #";Given name and a-dir, finds the corresponding number."
+0 0 66 29 1 #"\n"
+0 0 17 3 41 #";Returns 0 if no number in the directory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"phone-number"
+0 0 67 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 67 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 67 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 1 #")"
+0 0 67 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 67 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"record-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 13 #"record-number"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"phone-number"
+0 0 66 3 1 #" "
+0 0 14 3 4 #"name"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"a-dir"
+0 0 22 3 5 #"))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"list2"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 9 #"HsinyaLin"
+0 0 66 3 1 #" "
+0 0 20 3 10 #"6265939257"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 9 #"RonRonLin"
+0 0 66 11 1 #" "
+0 0 20 3 10 #"6267157010"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"make-record"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"'"
+0 0 14 3 8 #"TunaFish"
+0 0 66 3 1 #" "
+0 0 20 3 7 #"8888888"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 4 #"))))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 40 #";extract : inventory number -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 48 #";Given an-inv and price, it returns an inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 46 #";composed of inventory records (ir) which have"
+0 0 66 29 1 #"\n"
+0 0 17 3 27 #";prices greater than price."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 31 #";(define (extract an-inv price)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #"; [(empty? an-inv) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 3 #"..."
+0 0 17 3 47 #" (first an-inv) (extract (rest an-inv)) ...])) "
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 1 #">"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 5 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"extract"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"price"
+0 0 22 3 4 #")]))"
+0 0 66 3 1 #" "
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"RAISE"
+0 0 66 3 1 #" "
+0 0 20 3 4 #"0.05"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 38 #";raise-prices : inventory -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 51 #";Consumes an-inv and produces an inventory in which"
+0 0 66 29 1 #"\n"
+0 0 17 3 48 #";the price of each inventory record is increased"
+0 0 66 29 1 #"\n"
+0 0 17 3 18 #";by RAISE percent."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 17 3 9 #";Template"
+0 0 66 29 1 #"\n"
+0 0 17 3 30 #";(define (raise-prices an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #"; [(empty?) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 4 #"else"
+0 0 17 3 51 #" ... (first an-inv) (raise-prices (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"raise-prices"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"+"
+0 0 66 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"RAISE"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 17 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #")))"
+0 0 66 29 1 #"\n"
+0 0 66 3 16 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"raise-prices"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 26 #";Contract, Purpose, Header"
+0 0 66 29 1 #"\n"
+0 0 17 3 39 #";recall : symbol inventory -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 50 #";Removes the inventory record (ir) associated with"
+0 0 66 29 1 #"\n"
+0 0 17 3 23 #";ty from the inventory."
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 30 #";(define (raise-prices an-inv)"
+0 0 66 29 1 #"\n"
+0 0 17 3 8 #"; (cond"
+0 0 66 29 1 #"\n"
+0 0 17 3 19 #"; [(empty?) ...]"
+0 0 66 29 1 #"\n"
+0 0 17 3 5 #"; "
+0 0 17 3 1 #"["
+0 0 17 3 55 #"else ... (first an-inv) (raise-prices (rest an-inv))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 2 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #"))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"recall"
+0 0 66 3 1 #" "
+0 0 14 3 2 #"ty"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 10 #"substitute"
+0 0 17 3 1 #" "
+0 0 17 3 1 #":"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"symbol"
+0 0 17 3 30 #" symbol inventory -> inventory"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 5 #"Given"
+0 0 17 3 1 #" "
+0 0 17 3 3 #"old"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"new"
+0 0 17 3 1 #","
+0 0 17 3 1 #" "
+0 0 17 3 3 #"and"
+0 0 17 3 1 #" "
+0 0 17 3 6 #"an-inv"
+0 0 17 3 1 #","
+0 0 17 3 20 #" replace the name of"
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 2 #"an"
+0 0 17 3 1 #" "
+0 0 17 3 9 #"inventory"
+0 0 17 3 1 #" "
+0 0 17 3 7 #"record "
+0 0 17 3 4 #"with"
+0 0 17 3 24 #" name old with name new."
+0 0 66 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 15 3 4 #"cond"
+0 0 66 29 1 #"\n"
+0 0 67 3 3 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 6 #"empty?"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 67 3 1 #" "
+0 0 14 3 5 #"empty"
+0 0 22 3 1 #"]"
+0 0 66 29 1 #"\n"
+0 0 67 3 3 #" "
+0 0 22 3 2 #"[("
+0 0 14 3 8 #"symbol=?"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"ir-name"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 4 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-ir"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 66 29 1 #"\n"
+0 0 66 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-price"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 2 #"))"
+0 0 66 29 1 #"\n"
+0 0 66 3 19 #" "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"ir-image"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 3 #")))"
+0 0 66 29 1 #"\n"
+0 0 66 3 10 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 66 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 66 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 4 #")))]"
+0 0 66 29 1 #"\n"
+0 0 66 3 3 #" "
+0 0 22 3 1 #"["
+0 0 14 3 4 #"else"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"cons"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"first"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 1 #")"
+0 0 66 29 1 #"\n"
+0 0 66 3 15 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"substitute"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"old"
+0 0 66 3 1 #" "
+0 0 14 3 3 #"new"
+0 0 67 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"rest"
+0 0 67 3 1 #" "
+0 0 14 3 6 #"an-inv"
+0 0 22 3 6 #")))]))"
+0 0 66 29 1 #"\n"
+0 0 66 29 1 #"\n"
+0 0
blob - /dev/null
blob + c3c0261f061142511db6168cc073c3a87df55547 (mode 644)
--- /dev/null
+++ 10.3.1.ss
@@ -0,0 +1,344 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 10.3.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;Data Definitions
+
+;
+
+;A circle is a structure
+
+;(make-circle p n s) where p is a posn,
+
+;n is a number, and s is a symbol.
+
+
+(define-struct circle (center radius color))
+
+;
+
+;A rectangle is a structure
+
+;(make-rectangle p m n s) where p is a posn,
+
+;m and n are numbers, and s is a symbol.
+
+
+(define-struct rectangle (upper-left width height color))
+
+
+;A shape is either
+
+;1. a circle or
+
+;2. a rectangle.
+
+;
+
+;A list-of-shapes is either
+
+;1. an empty list or
+
+;2. (cons s los) where s is a shape and
+
+;los is a list-of-shapes.
+
+
+(define FACE (cons
+
+ (make-circle (make-posn 50 50)
+
+ 40
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 30 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 65 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 40 75)
+
+ 20
+
+ 10
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 45 35)
+
+ 10
+
+ 30
+
+ 'blue) empty))))))
+
+
+;Template
+
+;fun-for-losh : list-of-shapes -> ???
+
+;Consumes a list-of-shapes.
+
+;
+
+;(define (fun-for-losh alosh)
+
+; (cond
+
+; [(empty? alosh) ...]
+
+; [(circle? (first alosh)) ... (first alosh) (fun-for-losh (rest alosh))]
+
+; [(rectangle? (first alosh)) ...(first alosh) (fun-for-losh (rest alosh))]
+
+; [else ...]))
+
+
+;draw-losh : list-of-shapes -> boolean
+
+;Consumes alosh and draws the shapes on the canvas,
+
+;returning true. If drawing fails, it returns false.
+
+
+(define (draw-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (draw-a-circle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (draw-a-rectangle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [else false]))
+
+
+;draw-a-circle : circle -> boolean?
+
+;Draws a circle given a-circle (struct circle).
+
+
+(define (draw-a-circle a-circle)
+
+ (draw-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)
+
+ (circle-color a-circle)))
+
+
+; draw-a-rectangle : rectangle -> boolean
+
+; Returns true after drawing, consumes a-rect.
+
+
+(define (draw-a-rectangle a-rect)
+
+ (draw-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)
+
+ (rectangle-color a-rect)))
+
+
+;translate-losh : list-of-shapes number -> list-of-shapes
+
+;Given alosh, returns a list-of-shapes that have translated
+
+;delta pixels in the x direction. This function
+
+;does not affect the canvas.
+
+
+(define (translate-losh alosh delta)
+
+ (cond
+
+ [(empty? alosh) empty]
+
+ [(circle? (first alosh))
+
+ (cons
+
+ (make-circle
+
+ (make-posn (+ (posn-x (circle-center (first alosh)))
+
+ delta)
+
+ (posn-y (circle-center (first alosh))))
+
+ (circle-radius (first alosh))
+
+ (circle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [(rectangle? (first alosh))
+
+ (cons
+
+ (make-rectangle
+
+ (make-posn (+ (posn-x (rectangle-upper-left (first alosh)))
+
+ delta)
+
+ (posn-y (rectangle-upper-left (first alosh))))
+
+ (rectangle-width (first alosh))
+
+ (rectangle-height (first alosh))
+
+ (rectangle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [else (error 'translate-losh "unexpected error")]))
+
+
+;clear-losh : list-of-shapes -> boolean
+
+;Clears shapes corresponding to entries in alosh
+
+;and returns true. Does so by calling clear-a-rectangle
+
+;and clear-a-circle.
+
+
+(define (clear-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (clear-a-circle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (clear-a-rectangle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [else false]))
+
+
+; clear-a-circle : circle -> boolean
+
+; Clears a circle given a-circle, returns true if
+
+; evaluation completes successfully, false otherwise.
+
+
+(define (clear-a-circle a-circle)
+
+ (clear-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)))
+
+
+; clear-a-rectangle : rectangle -> boolean
+
+; Clears rectangle specified by a-rect and returns true
+
+; if evaluation suceeds, false otherwise.
+
+
+(define (clear-a-rectangle a-rect)
+
+ (clear-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)))
+
+
+;Data Definition
+
+;
+
+;A picture is a list-of-shapes?, I think.
+
+;
+
+;draw-and-clear-picture : picture -> boolean
+
+;Draws alosh, sleeps for a while, then clears alosh.
+
+;!!!CHANGE!!! Now it clears, sleeps for a while,
+
+;then draws alosh.
+
+
+(define (draw-and-clear-picture alosh)
+
+ (and
+
+
+ (draw-losh alosh)
+
+; (sleep-for-a-while 2)
+
+ (clear-losh alosh)))
+
+;
+
+;move-picture : number picture -> picture
+
+;Draws a picture delta pixels to the right, sleeps for a while,
+
+;clears the picture, and then returns the translated picture.
+
+
+(define (move-picture delta alosh)
+
+ (cond
+
+ [(draw-and-clear-picture (translate-losh alosh delta))
+
+ (translate-losh alosh delta)]
+
+ [else false]))
+
+
+(start 500 100)
+
+
+(control-left-right FACE 100 move-picture draw-losh)
\ No newline at end of file
blob - /dev/null
blob + f3cbdd2f0eb55743c0d05d2059410503f7ebf538 (mode 644)
--- /dev/null
+++ 11.2.1.bak
@@ -0,0 +1,344 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;Data Definitions
+
+;
+
+;A circle is a structure
+
+;(make-circle p n s) where p is a posn,
+
+;n is a number, and s is a symbol.
+
+
+(define-struct circle (center radius color))
+
+;
+
+;A rectangle is a structure
+
+;(make-rectangle p m n s) where p is a posn,
+
+;m and n are numbers, and s is a symbol.
+
+
+(define-struct rectangle (upper-left width height color))
+
+
+;A shape is either
+
+;1. a circle or
+
+;2. a rectangle.
+
+;
+
+;A list-of-shapes is either
+
+;1. an empty list or
+
+;2. (cons s los) where s is a shape and
+
+;los is a list-of-shapes.
+
+
+(define FACE (cons
+
+ (make-circle (make-posn 50 50)
+
+ 40
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 30 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 65 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 40 75)
+
+ 20
+
+ 10
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 45 35)
+
+ 10
+
+ 30
+
+ 'blue) empty))))))
+
+
+;Template
+
+;fun-for-losh : list-of-shapes -> ???
+
+;Consumes a list-of-shapes.
+
+;
+
+;(define (fun-for-losh alosh)
+
+; (cond
+
+; [(empty? alosh) ...]
+
+; [(circle? (first alosh)) ... (first alosh) (fun-for-losh (rest alosh))]
+
+; [(rectangle? (first alosh)) ...(first alosh) (fun-for-losh (rest alosh))]
+
+; [else ...]))
+
+
+;draw-losh : list-of-shapes -> boolean
+
+;Consumes alosh and draws the shapes on the canvas,
+
+;returning true. If drawing fails, it returns false.
+
+
+(define (draw-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (draw-a-circle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (draw-a-rectangle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [else false]))
+
+
+;draw-a-circle : circle -> boolean?
+
+;Draws a circle given a-circle (struct circle).
+
+
+(define (draw-a-circle a-circle)
+
+ (draw-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)
+
+ (circle-color a-circle)))
+
+
+; draw-a-rectangle : rectangle -> boolean
+
+; Returns true after drawing, consumes a-rect.
+
+
+(define (draw-a-rectangle a-rect)
+
+ (draw-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)
+
+ (rectangle-color a-rect)))
+
+
+;translate-losh : list-of-shapes number -> list-of-shapes
+
+;Given alosh, returns a list-of-shapes that have translated
+
+;delta pixels in the x direction. This function
+
+;does not affect the canvas.
+
+
+(define (translate-losh alosh delta)
+
+ (cond
+
+ [(empty? alosh) empty]
+
+ [(circle? (first alosh))
+
+ (cons
+
+ (make-circle
+
+ (make-posn (+ (posn-x (circle-center (first alosh)))
+
+ delta)
+
+ (posn-y (circle-center (first alosh))))
+
+ (circle-radius (first alosh))
+
+ (circle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [(rectangle? (first alosh))
+
+ (cons
+
+ (make-rectangle
+
+ (make-posn (+ (posn-x (rectangle-upper-left (first alosh)))
+
+ delta)
+
+ (posn-y (rectangle-upper-left (first alosh))))
+
+ (rectangle-width (first alosh))
+
+ (rectangle-height (first alosh))
+
+ (rectangle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [else (error 'translate-losh "unexpected error")]))
+
+
+;clear-losh : list-of-shapes -> boolean
+
+;Clears shapes corresponding to entries in alosh
+
+;and returns true. Does so by calling clear-a-rectangle
+
+;and clear-a-circle.
+
+
+(define (clear-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (clear-a-circle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (clear-a-rectangle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [else false]))
+
+
+; clear-a-circle : circle -> boolean
+
+; Clears a circle given a-circle, returns true if
+
+; evaluation completes successfully, false otherwise.
+
+
+(define (clear-a-circle a-circle)
+
+ (clear-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)))
+
+
+; clear-a-rectangle : rectangle -> boolean
+
+; Clears rectangle specified by a-rect and returns true
+
+; if evaluation suceeds, false otherwise.
+
+
+(define (clear-a-rectangle a-rect)
+
+ (clear-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)))
+
+
+;Data Definition
+
+;
+
+;A picture is a list-of-shapes?, I think.
+
+;
+
+;draw-and-clear-picture : picture -> boolean
+
+;Draws alosh, sleeps for a while, then clears alosh.
+
+;!!!CHANGE!!! Now it clears, sleeps for a while,
+
+;then draws alosh.
+
+
+(define (draw-and-clear-picture alosh)
+
+ (and
+
+
+ (draw-losh alosh)
+
+; (sleep-for-a-while 2)
+
+ (clear-losh alosh)))
+
+;
+
+;move-picture : number picture -> picture
+
+;Draws a picture delta pixels to the right, sleeps for a while,
+
+;clears the picture, and then returns the translated picture.
+
+
+(define (move-picture delta alosh)
+
+ (cond
+
+ [(draw-and-clear-picture (translate-losh alosh delta))
+
+ (translate-losh alosh delta)]
+
+ [else false]))
+
+
+(start 500 100)
+
+
+(control-left-right FACE 100 move-picture draw-losh)
\ No newline at end of file
blob - /dev/null
blob + 979dfd3ab84956e7f7928a56d057236937a0e237 (mode 644)
--- /dev/null
+++ 11.2.1.ss
@@ -0,0 +1,84 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;A natural-number is
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number.
+
+;
+
+;A list-of-symbols is
+
+;1. an empty list or
+
+;2. (cons s los) where s is a symbol and
+
+;los is a list-of-symbols.
+
+;
+
+;repeat : natural-number symbol -> list-of-symbols
+
+;Given a natural-number n, returns word n times
+
+;as a list-of-symbols.
+
+;
+
+;Template
+
+;(define (repeat n word)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [else ... (repeat (sub1 n)) ...]))
+
+
+(define (repeat n word)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons word (repeat (sub1 n) word))]))
+
+
+;; f : number -> number
+
+(define (f x)
+
+ (+ (* 3 (* x x))
+
+ (+ (* -6 x)
+
+ -1)))
+
+;
+
+;A list-of-posns is either
+
+;1. an empty list or
+
+;2. (cons p lop) where p is a posn and lop is a list-of-posns.
+
+;tabulate-f : natural-number -> list-of-posns
+
+;Creates a "table". Returns a list of n posns of the form
+
+;(cons (make-posn (f n) n) (cons (make-posn (f (- n 1) (- n 1)))...
+
+
+(define (tabulate-f n)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons (make-posn (f n) n) (tabulate-f (sub1 n)))]))
\ No newline at end of file
blob - /dev/null
blob + 52ad5e78c3332171930134ce0f72349f56debd66 (mode 644)
--- /dev/null
+++ 11.2.3.bak
@@ -0,0 +1,84 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.3) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;A natural-number is
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number.
+
+;
+
+;A list-of-symbols is
+
+;1. an empty list or
+
+;2. (cons s los) where s is a symbol and
+
+;los is a list-of-symbols.
+
+;
+
+;repeat : natural-number symbol -> list-of-symbols
+
+;Given a natural-number n, returns word n times
+
+;as a list-of-symbols.
+
+;
+
+;Template
+
+;(define (repeat n word)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [else ... (repeat (sub1 n)) ...]))
+
+
+(define (repeat n word)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons word (repeat (sub1 n) word))]))
+
+
+;; f : number -> number
+
+(define (f x)
+
+ (+ (* 3 (* x x))
+
+ (+ (* -6 x)
+
+ -1)))
+
+;
+
+;A list-of-posns is either
+
+;1. an empty list or
+
+;2. (cons p lop) where p is a posn and lop is a list-of-posns.
+
+;tabulate-f : natural-number -> list-of-posns
+
+;Creates a "table". Returns a list of n posns of the form
+
+;(cons (make-posn (f n) n) (cons (make-posn (f (- n 1) (- n 1)))...
+
+
+(define (tabulate-f n)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons (make-posn (f n) n) (tabulate-f (sub1 n)))]))
\ No newline at end of file
blob - /dev/null
blob + 1b571e18c3529dbde8bcb2f34778e29595d49abf (mode 644)
--- /dev/null
+++ 11.2.3.ss
@@ -0,0 +1,451 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.3) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;Data Definitions
+
+;
+
+;A circle is a structure
+
+;(make-circle p n s) where p is a posn,
+
+;n is a number, and s is a symbol.
+
+
+(define-struct circle (center radius color))
+
+;
+
+;A rectangle is a structure
+
+;(make-rectangle p m n s) where p is a posn,
+
+;m and n are numbers, and s is a symbol.
+
+
+(define-struct rectangle (upper-left width height color))
+
+
+;A shape is either
+
+;1. a circle or
+
+;2. a rectangle.
+
+;
+
+;A list-of-shapes is either
+
+;1. an empty list or
+
+;2. (cons s los) where s is a shape and
+
+;los is a list-of-shapes.
+
+
+(define FACE (cons
+
+ (make-circle (make-posn 50 50)
+
+ 40
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 30 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 65 20)
+
+ 5
+
+ 5
+
+ 'blue)
+
+ (cons
+
+ (make-rectangle (make-posn 40 75)
+
+ 20
+
+ 10
+
+ 'red)
+
+ (cons
+
+ (make-rectangle (make-posn 45 35)
+
+ 10
+
+ 30
+
+ 'blue) empty))))))
+
+
+;Template
+
+;fun-for-losh : list-of-shapes -> ???
+
+;Consumes a list-of-shapes.
+
+;
+
+;(define (fun-for-losh alosh)
+
+; (cond
+
+; [(empty? alosh) ...]
+
+; [(circle? (first alosh)) ... (first alosh) (fun-for-losh (rest alosh))]
+
+; [(rectangle? (first alosh)) ...(first alosh) (fun-for-losh (rest alosh))]
+
+; [else ...]))
+
+
+;draw-losh : list-of-shapes -> boolean
+
+;Consumes alosh and draws the shapes on the canvas,
+
+;returning true. If drawing fails, it returns false.
+
+
+(define (draw-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (draw-a-circle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (draw-a-rectangle (first alosh))
+
+ (draw-losh (rest alosh)))]
+
+ [else false]))
+
+
+;draw-a-circle : circle -> boolean?
+
+;Draws a circle given a-circle (struct circle).
+
+
+(define (draw-a-circle a-circle)
+
+ (draw-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)
+
+ (circle-color a-circle)))
+
+
+; draw-a-rectangle : rectangle -> boolean
+
+; Returns true after drawing, consumes a-rect.
+
+
+(define (draw-a-rectangle a-rect)
+
+ (draw-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)
+
+ (rectangle-color a-rect)))
+
+
+;translate-losh : list-of-shapes number -> list-of-shapes
+
+;Given alosh, returns a list-of-shapes that have translated
+
+;delta pixels in the x direction. This function
+
+;does not affect the canvas.
+
+
+(define (translate-losh alosh delta)
+
+ (cond
+
+ [(empty? alosh) empty]
+
+ [(circle? (first alosh))
+
+ (cons
+
+ (make-circle
+
+ (make-posn (+ (posn-x (circle-center (first alosh)))
+
+ delta)
+
+ (posn-y (circle-center (first alosh))))
+
+ (circle-radius (first alosh))
+
+ (circle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [(rectangle? (first alosh))
+
+ (cons
+
+ (make-rectangle
+
+ (make-posn (+ (posn-x (rectangle-upper-left (first alosh)))
+
+ delta)
+
+ (posn-y (rectangle-upper-left (first alosh))))
+
+ (rectangle-width (first alosh))
+
+ (rectangle-height (first alosh))
+
+ (rectangle-color (first alosh)))
+
+ (translate-losh (rest alosh) delta))]
+
+ [else (error 'translate-losh "unexpected error")]))
+
+
+;clear-losh : list-of-shapes -> boolean
+
+;Clears shapes corresponding to entries in alosh
+
+;and returns true. Does so by calling clear-a-rectangle
+
+;and clear-a-circle.
+
+
+(define (clear-losh alosh)
+
+ (cond
+
+ [(empty? alosh) true]
+
+ [(circle? (first alosh)) (and
+
+ (clear-a-circle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [(rectangle? (first alosh)) (and
+
+ (clear-a-rectangle (first alosh))
+
+ (clear-losh (rest alosh)))]
+
+ [else false]))
+
+
+; clear-a-circle : circle -> boolean
+
+; Clears a circle given a-circle, returns true if
+
+; evaluation completes successfully, false otherwise.
+
+
+(define (clear-a-circle a-circle)
+
+ (clear-solid-disk (circle-center a-circle)
+
+ (circle-radius a-circle)))
+
+
+; clear-a-rectangle : rectangle -> boolean
+
+; Clears rectangle specified by a-rect and returns true
+
+; if evaluation suceeds, false otherwise.
+
+
+(define (clear-a-rectangle a-rect)
+
+ (clear-solid-rect (rectangle-upper-left a-rect)
+
+ (rectangle-width a-rect)
+
+ (rectangle-height a-rect)))
+
+
+;Data Definition
+
+;
+
+;A picture is a list-of-shapes?, I think.
+
+;
+
+;draw-and-clear-picture : picture -> boolean
+
+;Draws alosh, sleeps for a while, then clears alosh.
+
+;!!!CHANGE!!! Now it clears, sleeps for a while,
+
+;then draws alosh.
+
+
+(define (draw-and-clear-picture alosh)
+
+ (and
+
+
+ (draw-losh alosh)
+
+ (sleep-for-a-while 0.1)
+
+ (clear-losh alosh)))
+
+;
+
+;move-picture : number picture -> picture
+
+;Draws a picture delta pixels to the right, sleeps for a while,
+
+;clears the picture, and then returns the translated picture.
+
+
+(define (move-picture delta alosh)
+
+ (cond
+
+ [(draw-and-clear-picture (translate-losh alosh delta))
+
+ (translate-losh alosh delta)]
+
+ [else false]))
+
+
+(start 500 100)
+
+
+;A natural-number is
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number.
+
+;
+
+;A list-of-symbols is
+
+;1. an empty list or
+
+;2. (cons s los) where s is a symbol and
+
+;los is a list-of-symbols.
+
+;
+
+;repeat : natural-number symbol -> list-of-symbols
+
+;Given a natural-number n, returns word n times
+
+;as a list-of-symbols.
+
+;
+
+;Template
+
+;(define (repeat n word)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [else ... (repeat (sub1 n)) ...]))
+
+
+(define (repeat n word)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons word (repeat (sub1 n) word))]))
+
+
+;; f : number -> number
+
+(define (f x)
+
+ (+ (* 3 (* x x))
+
+ (+ (* -6 x)
+
+ -1)))
+
+;
+
+;A list-of-posns is either
+
+;1. an empty list or
+
+;2. (cons p lop) where p is a posn and lop is a list-of-posns.
+
+;tabulate-f : natural-number -> list-of-posns
+
+;Creates a "table". Returns a list of n posns of the form
+
+;(cons (make-posn (f n) n) (cons (make-posn (f (- n 1) (- n 1)))...
+
+
+(define (tabulate-f n)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [else (cons (make-posn (f n) n) (tabulate-f (sub1 n)))]))
+
+;
+
+;apply-n : natural-number list-of-shapes -> boolean
+
+;Applies the function move-picture n times to alosh.
+
+;Returns true if evaluation succeeds.
+
+;
+
+;Template
+
+;(define (apply-n n alosh)
+
+; (cond
+
+; [(zero? n) true]
+
+; [else ... (apply-n (sub1 n))]
+
+;
+
+(define (apply-n n alosh)
+
+ (cond
+
+ [(zero? n) alosh]
+
+ [else (move-picture 4 (apply-n (sub1 n) alosh))]))
\ No newline at end of file
blob - /dev/null
blob + 3386c76a71d910530cff3c4123426db4c62fdd2b (mode 644)
--- /dev/null
+++ 11.2.4.bak
@@ -0,0 +1,27 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.4) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+A deep-list is either
+
+1. a symbol or
+
+2. (cons dl empty) where dl is a deep-list.
+
+
+depth : deep-list -> number
+
+Consumes a deep-list dl and determines how many
+
+cons were used to construct it.
+
+
+(define (depth dl)
+
+ (cond
+
+ []
+
+ []))
\ No newline at end of file
blob - /dev/null
blob + fe0a7e3eaef18a8ed91ce6a180e3cf5a3d934779 (mode 644)
--- /dev/null
+++ 11.2.4.ss
@@ -0,0 +1,96 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.2.4) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;A deep-list is either
+
+;1. a symbol or
+
+;2. (cons dl empty) where dl is a deep-list.
+
+;
+
+;depth : deep-list -> number
+
+;Consumes a deep-list dl and determines how many
+
+;cons were used to construct it.
+
+;
+
+;Examples
+
+;(depth (cons (cons (cons 'food empty) empty) empty))
+
+;3
+
+;(depth (cons 'food empty))
+
+;1
+
+;(depth 'food)
+
+;0
+
+
+(define (depth dl)
+
+ (cond
+
+ [(symbol? dl) 0]
+
+ [(cons? dl) (+ 1 (depth (first dl)))]))
+
+
+;Test
+
+;(define dl1 (cons (cons (cons 'food empty) empty) empty))
+
+;
+
+;make-deep : symbol natural-number -> deep-list
+
+;Consumes word and n to produce a deep-list
+
+;containing word constructed using n cons's.
+
+;
+
+;Examples:
+
+;(make-deep 'hey 3)
+
+;(cons (cons (cons 'hey empty) empty) empty)
+
+;(make-deep 'hey 0)
+
+;'hey
+
+;(make-deep 'hey 1)
+
+;(cons 'hey empty)
+
+;
+
+;Template
+
+;(define (make-deep word n)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [(> n 0) ... (make-deep word (sub1 n))]))
+
+
+(define (make-deep word n)
+
+ (cond
+
+ [(zero? n) word]
+
+ [(> n 0) (cons (make-deep word (sub1 n)) empty)]))
+
+
blob - /dev/null
blob + 94df811dac0e0d128686c0d11a6bb279f58a154d (mode 644)
--- /dev/null
+++ 11.3.1.bak
@@ -0,0 +1,19 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m-1
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- m n)) n))
+
blob - /dev/null
blob + 97dd3a993a39dc4830366a46513d6761e28a6676 (mode 644)
--- /dev/null
+++ 11.3.1.ss
@@ -0,0 +1,120 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m-1
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- m n)) n))
+
+
+;Data Definition
+
+;A natural-number is either
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number.
+
+;
+
+;A list-of-numbers is either
+
+;1. an empty list or
+
+;2. (cons n lon) where n is a number and
+
+;lon is a list-of-numbers.
+
+;
+
+;tie-dyed : natural-number -> list-of-numbers
+
+;Consumes a natural-number n and produces a list
+
+;with that many randomly numbers between
+
+;20 and 120.
+
+;
+
+;Template
+
+;(define (tie-dyed n)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [(>= n 1) ... (tie-dyed (sub1 n))]
+
+; [else (error 'tie-dyed "Not a natural number")]))
+
+
+;Examples
+
+;(tie-dyed 0)
+
+;empty
+
+;(tie-dyed 1)
+
+;(cons (random-n-m 20 121) empty)
+
+;(tie-dyed 2)
+
+;(cons (random-n-m 20 121)
+
+; (cons (random-n-m 20 121) empty))
+
+
+(define (tie-dyed n)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [(>= n 1) (cons (random-n-m 20 121) (tie-dyed (sub1 n)))]
+
+ [else (error 'tie-dyed "Not a natural number")]))
+
+
+;Contract, Purpose, Header
+
+;draw-circles : posn list-of-numbers -> boolean
+
+;Given p and a-list, draw-circles draws concentric circles centered at p
+
+;with radius given by the elements of a-list. Each circle is drawn
+
+;by calling draw-circle.
+
+;
+
+;Template
+
+
+(define (draw-circles p a-list)
+
+ (cond
+
+ [(empty? a-list) true]
+
+ [(draw-circle p (first a-list) 'red) (draw-circles p (rest a-list))]
+
+ [else false]))
+
+
+(start 200 200)
+
+(draw-circles (make-posn 100 100) (tie-dyed 1000))
\ No newline at end of file
blob - /dev/null
blob + a2ce2499a9a523a1dd9f3597ea60a6ccf0f8aaeb (mode 644)
--- /dev/null
+++ 11.3.3.bak
@@ -0,0 +1,48 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.3) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m-1
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- m n)) n))
+
+
+create-temps : number number number -> list-of-numbers
+
+Creates a list-of-numbers consisting of n numbers between low and high.
+
+Example
+
+(create-temps 0 low high)
+
+empty
+
+(create-temps 1 low high)
+
+(random-n-m low (+ high 1))
+
+
+(define (create-temps n low high)
+
+ (cond
+
+ []
+
+ []))
+
+
+(
+
+
+(define
\ No newline at end of file
blob - /dev/null
blob + 003965ad109d7833cf8e69b60ebec03130b48a5f (mode 644)
--- /dev/null
+++ 11.3.3.ss
@@ -0,0 +1,237 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.3) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m-1
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- m n)) n))
+
+;
+
+;create-temps : number number number -> list-of-numbers
+
+;Creates a list-of-numbers consisting of n numbers between low and high.
+
+;Example
+
+;(create-temps 0 low high)
+
+;empty
+
+;(create-temps 1 low high)
+
+;(cons (random-n-m low (+ high 1)) empty)
+
+;(create-temps 2 low high)
+
+;(cons (random-n-m low (+ high 1)) (cons (random-n-m low (+ high 1)) empty))
+
+;
+
+;Template
+
+;
+
+;(define (create-temps n low high)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [(>= n 1) ...]
+
+; [else (error 'create-temps "expected 1st arg: natural number")]))
+
+
+(define (create-temps n low high)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [(>= n 1) (cons (random-n-m low (+ high 1)) (create-temps (sub1 n) low high))]
+
+ [else (error 'create-temps "expected 1st arg: natural number")]))
+
+
+;Data Definition
+
+;A list-of-temperatures is either
+
+;1. an empty list or
+
+;2. (cons t los) where t is a number and los is a list-of-temperatures.
+
+
+;Header, Purpose, Contract
+
+;check-range1? : list-of-temperatures -> boolean
+
+;Given a-list, returns true if the list of temperatures are within the range
+
+;low and high (endpoints included as true).
+
+;
+
+(define (check-range1? a-list low high)
+
+ (cond
+
+ [(empty? a-list) true]
+
+ [(cons? a-list) (cond
+
+ [(and
+
+ (number? (first a-list))
+
+ (>= (first a-list) low)
+
+ (<= (first a-list) high))
+
+ (check-range1? (rest a-list) low high)]
+
+ [(number? (first a-list)) false]
+
+ [else
+
+ (error 'check-range1? "list should be composed of numbers")])]
+
+ [else (error 'check-range1? "expected 3 arg: list number number")]))
+
+
+;create-prices : natural-number number number -> list-of-numbers
+
+;Given a natural-number n, creates a list of n prices
+
+;between low and high rounded to the nearest
+
+;dime ($0.10). Creates this list by
+
+;making the function call random-dime.
+
+;
+
+;Examples
+
+;(create-prices 0 low high)
+
+;empty
+
+;(create-prices 1 low high)
+
+;(cons (random-dime low high) empty)
+
+;(create-prices 2 low high)
+
+;(cons (random-dime low high)
+
+; (cons (random-dime low high) empty))
+
+;
+
+(define (create-prices n low high)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [(>= n 1) (cons (random-dime low high) (create-prices (sub1 n) low high))]
+
+ [else (error 'create-prices "expected 1st arg: natural-number")]))
+
+
+;random-dime : number number -> number
+
+;Given low and high, creates a number (decimal) between low and high
+
+;rounded to the nearest dime. It does so by choosing a random integer
+
+;between 0 and (high-low)/0.1, inclusive. So for example,
+
+;for low=0 and high=1, it chooses a number between 0 and 10 (inclusive).
+
+;It then multiplies this number by 0.1, the value of a dime.
+
+;This function thus returns us a number between $0.00 and $1.00,
+
+;rounded to the nearest dime.
+
+
+(define (random-dime low high)
+
+ (*
+
+ (random-n-m 0
+
+ (+ (/ (- high low) 0.1) 1))
+
+ 0.1))
+
+
+;
+
+;dollar-store? : list-of-numbers -> boolean
+
+;Checks a-list to see if the prices are below 1. Returns true
+
+;if the statement is true, false otherwise.
+
+;
+
+;Template
+
+;(define (dollar-store? a-list)
+
+; (cond
+
+; [(empty? a-list) ...]
+
+; [(cons? a-list) (first a-list) (rest a-list)]))
+
+
+(define (dollar-store? a-list)
+
+ (cond
+
+ [(empty? a-list) true]
+
+ [(cons? a-list) (cond
+
+ [(and
+
+ (number? (first a-list))
+
+ (< (first a-list) 1))
+
+ (dollar-store? (rest a-list))]
+
+ [else false])]))
+
+
+;eval-until-true : natural-number number number -> boolean
+
+;Keep evaluating (dollar-store? (create-prices n low high))
+
+;until it returns true.
+
+;
+
+(define (eval-until-true n low high)
+
+ (cond
+
+ [(dollar-store? (create-prices n low high)) true]
+
+ [else (eval-until-true n low high)]))
\ No newline at end of file
blob - /dev/null
blob + 886f4f96ea622d83a54c7682945cc7fffe67aed9 (mode 644)
--- /dev/null
+++ 11.3.5.bak
@@ -0,0 +1,237 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.5) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m-1
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- m n)) n))
+
+;
+
+;create-temps : number number number -> list-of-numbers
+
+;Creates a list-of-numbers consisting of n numbers between low and high.
+
+;Example
+
+;(create-temps 0 low high)
+
+;empty
+
+;(create-temps 1 low high)
+
+;(cons (random-n-m low (+ high 1)) empty)
+
+;(create-temps 2 low high)
+
+;(cons (random-n-m low (+ high 1)) (cons (random-n-m low (+ high 1)) empty))
+
+;
+
+;Template
+
+;
+
+;(define (create-temps n low high)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [(>= n 1) ...]
+
+; [else (error 'create-temps "expected 1st arg: natural number")]))
+
+
+(define (create-temps n low high)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [(>= n 1) (cons (random-n-m low (+ high 1)) (create-temps (sub1 n) low high))]
+
+ [else (error 'create-temps "expected 1st arg: natural number")]))
+
+
+;Data Definition
+
+;A list-of-temperatures is either
+
+;1. an empty list or
+
+;2. (cons t los) where t is a number and los is a list-of-temperatures.
+
+
+;Header, Purpose, Contract
+
+;check-range1? : list-of-temperatures -> boolean
+
+;Given a-list, returns true if the list of temperatures are within the range
+
+;low and high (endpoints included as true).
+
+;
+
+(define (check-range1? a-list low high)
+
+ (cond
+
+ [(empty? a-list) true]
+
+ [(cons? a-list) (cond
+
+ [(and
+
+ (number? (first a-list))
+
+ (>= (first a-list) low)
+
+ (<= (first a-list) high))
+
+ (check-range1? (rest a-list) low high)]
+
+ [(number? (first a-list)) false]
+
+ [else
+
+ (error 'check-range1? "list should be composed of numbers")])]
+
+ [else (error 'check-range1? "expected 3 arg: list number number")]))
+
+
+;create-prices : natural-number number number -> list-of-numbers
+
+;Given a natural-number n, creates a list of n prices
+
+;between low and high rounded to the nearest
+
+;dime ($0.10). Creates this list by
+
+;making the function call random-dime.
+
+;
+
+;Examples
+
+;(create-prices 0 low high)
+
+;empty
+
+;(create-prices 1 low high)
+
+;(cons (random-dime low high) empty)
+
+;(create-prices 2 low high)
+
+;(cons (random-dime low high)
+
+; (cons (random-dime low high) empty))
+
+;
+
+(define (create-prices n low high)
+
+ (cond
+
+ [(zero? n) empty]
+
+ [(>= n 1) (cons (random-dime low high) (create-prices (sub1 n) low high))]
+
+ [else (error 'create-prices "expected 1st arg: natural-number")]))
+
+
+;random-dime : number number -> number
+
+;Given low and high, creates a number (decimal) between low and high
+
+;rounded to the nearest dime. It does so by choosing a random integer
+
+;between 0 and (high-low)/0.1, inclusive. So for example,
+
+;for low=0 and high=1, it chooses a number between 0 and 10 (inclusive).
+
+;It then multiplies this number by 0.1, the value of a dime.
+
+;This function thus returns us a number between $0.00 and $1.00,
+
+;rounded to the nearest dime.
+
+
+(define (random-dime low high)
+
+ (*
+
+ (random-n-m 0
+
+ (+ (/ (- high low) 0.1) 1))
+
+ 0.1))
+
+
+;
+
+;dollar-store? : list-of-numbers -> boolean
+
+;Checks a-list to see if the prices are below 1. Returns true
+
+;if the statement is true, false otherwise.
+
+;
+
+;Template
+
+;(define (dollar-store? a-list)
+
+; (cond
+
+; [(empty? a-list) ...]
+
+; [(cons? a-list) (first a-list) (rest a-list)]))
+
+
+(define (dollar-store? a-list)
+
+ (cond
+
+ [(empty? a-list) true]
+
+ [(cons? a-list) (cond
+
+ [(and
+
+ (number? (first a-list))
+
+ (< (first a-list) 1))
+
+ (dollar-store? (rest a-list))]
+
+ [else false])]))
+
+
+;eval-until-true : natural-number number number -> boolean
+
+;Keep evaluating (dollar-store? (create-prices n low high))
+
+;until it returns true.
+
+;
+
+(define (eval-until-true n low high)
+
+ (cond
+
+ [(dollar-store? (create-prices n low high)) true]
+
+ [else (eval-until-true n low high)]))
\ No newline at end of file
blob - /dev/null
blob + 2b8cbd832992aff7e9a76e50689da83f41e461bf (mode 644)
--- /dev/null
+++ 11.3.5.ss
@@ -0,0 +1,239 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.3.5) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;;Produces an intenger between n and m (both endpoints included)
+
+
+;; random-n-m : integer integer -> integer
+
+;; ...
+
+;; Assume: n < m
+
+(define (random-n-m n m)
+
+ (+ (random (- (+ m 1) n)) n))
+
+
+;riot : natural-number natural-number natural-number -> boolean
+
+;Draws a grid grid-length long and grid-length wide
+
+;with num-lines vertically and num-lines
+
+;horizontally and n balloons randomly scattered in
+
+;the grid. Returns true once evaluation completes.
+
+;This function does this by calling
+
+;(drawgrid grid-length num-lines whichlength?) to draw the grid lines and
+
+;(draw-balloons grid-length num-balloons) to draw the balloons.
+
+
+;Examples
+
+;(riot 15 500 5)
+
+;Starts a canvas 500px wide by 500px long and creates
+
+;5 lines vertically and 5 lines horizontally.
+
+;It then draws 15 red-circles on the canvas that represent
+
+;balloons.
+
+
+(define (riot num-balloons grid-length num-lines)
+
+ (and
+
+ (start grid-length grid-length)
+
+ (drawgrid grid-length num-lines 1)
+
+ (draw-balloons num-balloons grid-length)))
+
+
+;Contract, Purpose, Header
+
+;drawgrid : natural-number natural-number natural-number -> boolean
+
+;Draws num-lines horizontal lines and
+
+;num-lines vertical lines given grid-length.
+
+;We do this by drawing the
+
+;horizontal and vertical lines corresponding to whichline?
+
+;then drawing the remainder of the lines by recursively calling
+
+;on drawgrid. For example, if whichline? is 2, we draw the
+
+;second horizontal and second vertical line (in that order).
+
+;
+
+;Examples
+
+;(drawgrid 100 0 1)
+
+;true
+
+
+;(drawgrid 100 1 1)
+
+;Draws one horizontal line and one vertical
+
+;line in the center of the canvas.
+
+;The horizontal line starts from (make-posn 50 0)
+
+;and goes to (make-posn 50 100). The vertical line
+
+;starts from (make-posn 0 50) and goes to
+
+;(make-posn 100 50).
+
+
+;(drawgrid 100 2 1)
+
+;Draws two horizontal lines and two vertical lines.
+
+;The horizontal lines start from (make-posn 33 0)
+
+;and (make-posn 67 0) and go to
+
+;(make-posn 33 100) and to (make-posn 67 100),
+
+;respectively. The vertical lines start from
+
+;(make-posn 0 33) and (make-posn 0 67) and go to
+
+;(make-posn 100 33) and (make-posn 100 67),
+
+;respectively.
+
+;
+
+;Template
+
+;(define (drawgrid grid-length num-lines))
+
+;;
+
+;Template
+
+(define (drawgrid grid-length num-lines whichline?)
+
+ (cond
+
+ [(zero? num-lines) true]
+
+ [(> whichline? num-lines) true]
+
+ [(and
+
+ (>= num-lines 1)
+
+ (<= whichline? num-lines))
+
+ (and
+
+ (draw-solid-line (make-posn 0
+
+ (* whichline?
+
+ (round (/ grid-length (+ num-lines 1)))))
+
+ (make-posn grid-length
+
+ (* whichline?
+
+ (round (/ grid-length (+ num-lines 1)))))
+
+ 'black)
+
+ (draw-solid-line (make-posn (* whichline?
+
+ (round (/ grid-length (+ num-lines 1))))
+
+ 0)
+
+ (make-posn (* whichline?
+
+ (round (/ grid-length (+ num-lines 1))))
+
+ grid-length)
+
+ 'black)
+
+ (drawgrid grid-length num-lines (add1 whichline?)))]))
+
+;
+
+;Contract, Purpose, Header
+
+;draw-balloons : natural-number natural-number -> boolean
+
+;Draw num-balloons of balloons randomly
+
+;scattered in a grid of width and height grid-length.
+
+;It does so by drawing one solid disk colored 'red
+
+;with radius R centered at
+
+;(make-posn (random-n-m 0 grid-length) (random-n-m 0 grid-length)
+
+;that is, a disk centered at a random point within
+
+;the grid. It then draws the remaining balloons
+
+;by calling on itself
+
+;to draw one less balloon than it started with.
+
+;It returns true when finished.
+
+;
+
+;Examples
+
+;(draw-balloons 0 grid-length)
+
+;true
+
+;(draw-balloons 1 grid-length)
+
+;Draws one balloon randomly scattered
+
+;in the canvas grid-length wide and high.
+
+;
+
+(define (draw-balloons num-balloons grid-length)
+
+ (cond
+
+ [(zero? num-balloons) true]
+
+ [(draw-solid-disk (make-posn (random-n-m 0 grid-length)
+
+ (random-n-m 0 grid-length))
+
+ RADIUS
+
+ 'red)
+
+ (draw-balloons (sub1 num-balloons) grid-length)]))
+
+
+(define RADIUS 3)
+
+(riot 50 500 20)
\ No newline at end of file
blob - /dev/null
blob + b91ef4c05b087d3506eee31c0305db4d04897d12 (mode 644)
--- /dev/null
+++ 11.4.1.bak
@@ -0,0 +1,6 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.4.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
blob - /dev/null
blob + 3ad00162e2564dc00fb3eb216e4885a5fb82b18a (mode 644)
--- /dev/null
+++ 11.4.1.ss
@@ -0,0 +1,396 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 11.4.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;A natural-number is either
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number
+
+;
+
+;! : natural-number -> natural number
+
+;Computes the factorial of n,
+
+;ie, n * (n-1) * (n-2)...2 * 1.
+
+
+(define (! n)
+
+ (cond
+
+ [(zero? n) 1]
+
+ [(>= n 1) (* n (! (sub1 n)))]))
+
+;
+
+;product : natural-number natural-number -> natural-number
+
+;Given m and n, and assuming m > n, computes (m!)/(n!).
+
+
+(define (product m n)
+
+ (/ (! m) (! n)))
+
+
+;; f : number -> number
+
+(define (f x)
+
+ (+ (* 3 (* x x))
+
+ (+ (* -6 x)
+
+ -1)))
+
+
+;
+
+;A list-of-posns is either
+
+;1. an empty list or
+
+;2. (cons p lop) where p is a posn and lop is a list-of-posns.
+
+;tabulate-f20 : natural-number -> list-of-posns
+
+;Creates a "table". Returns a list of n posns of the form
+
+;(cons (make-posn (f n) n) (cons (make-posn (f (- n 1) (- n 1)))...
+
+;Stops when n=20 (table includes n=20).
+
+
+(define (tabulate-f20 n)
+
+ (cond
+
+ [(< n 20) empty]
+
+ [else (cons (make-posn (f n) n) (tabulate-f20 (sub1 n)))]))
+
+
+;
+
+;Let limit be a natural number. A natural number [>=limit] (N[>=limit])
+
+;is either
+
+;
+
+;1. limit or
+
+;2. (add1 n) where n is a natural number [>=limit].
+
+
+;Contract, Purpose, Header
+
+;tabulate-f-lim : N[limit] N[>=limit] -> lop
+
+;Creates a table of posns containing the entries
+
+;(make-posn (f n) n) from n (inclusive) to limit (exclusive).
+
+
+(define (tabulate-f-lim limit n)
+
+ (cond
+
+ [(= n limit) empty]
+
+ [(> n limit) (cons (make-posn (f n) n) (tabulate-f-lim limit (sub1 n)))]))
+
+
+;A natural-number [<=limit] (N[<=limit]) is either
+
+;1. limit or
+
+;2. (sub1 n) where n is a natural-number [<=limit].
+
+
+;Contract, Purpose, Header
+
+;tabulate-f-lim-ascend : N[limit] N[<=limit] -> list-of-posns
+
+;Produces a list-of-posns (lop) of the form
+
+;1. empty list or
+
+;2. (cons (make-posn n (f n)) lop) where lop is a list-of-posns.
+
+;The list begins from n (inclusive) and ascends to limit (exclusive)
+
+;where we have defined that limit >= n.
+
+;
+
+;Template
+
+(define (tabulate-f-lim-ascend limit n)
+
+ (cond
+
+ [(= limit n) empty]
+
+ [(>= limit n) (cons (make-posn n (f n))
+
+ (tabulate-f-lim-ascend limit (add1 n)))]))
+
+
+;A natural-number [>=1] (N[>=1]) is either
+
+;1. 1 or
+
+;2. (add1 n) where n is a natural-number [>=1].
+
+;
+
+;is-not-divisible-by<=i : N [>=1] N[>i] -> boolean
+
+;Determines if m is divisible by any number between
+
+;1 (exclusive) and i (inclusive). Returns
+
+;true if the m is never divisible and false otherwise.
+
+;Template
+
+
+(define (is-not-divisible-by<=i i m)
+
+ (cond
+
+ [(= i 1) true]
+
+ [(> i 1) (and (not (zero? (remainder m i)))
+
+ (is-not-divisible-by<=i (sub1 i) m))]))
+
+;
+
+;Purpose, Contract, Header
+
+;prime? : natural-number [>=2]
+
+(define (prime? n)
+
+ (is-not-divisible-by<=i (round (sqrt n)) n))
+
+;
+
+;add : N N -> N
+
+;Adds n and x without using the + operator.
+
+;
+
+;Template
+
+(define (add n x)
+
+ (cond
+
+ [(= x 0) n]
+
+ [(> x 0) (add1 (add n (sub1 x)))]))
+
+
+;multiply : N N -> N
+
+;Multiplies n by x without using either
+
+;the + or * operator.
+
+
+(define (multiply n x)
+
+ (cond
+
+ [(zero? x) 0]
+
+ [(> x 0) (add n (multiply n (sub1 x)))]))
+
+
+;A rational number [R] can be represented as a fraction
+
+;m/n where both m and n are natural-numbers.
+
+
+;multiply-by-rational : R N -> R
+
+;Given a natural-number x, multiply by rational-number n.
+
+
+;(define (multiply-by-rational n x)
+
+; (cond
+
+; [(zero? x) 0]
+
+; [(> x 0) (add-rational n (multiply-by-rational n (sub1 x)))]))
+
+
+;add-rational : R R -> R
+
+;Given two rational-numbers n and x,
+
+;add the two numbers.
+
+;This is hard...give up
+
+;
+
+;exponent : N N -> N
+
+;Raises x to the nth power.
+
+
+(define (exponent x n)
+
+ (cond
+
+ [(zero? n) 1]
+
+ [(> n 0) (multiply (exponent x (sub1 n)) x)]))
+
+
+A deep-list is either
+
+1. a symbol or
+
+2. (cons dl empty) where dl is a deep-list.
+
+
+;depth : deep-list -> number
+
+;Consumes a deep-list dl and determines how many
+
+;cons were used to construct it.
+
+;
+
+;Examples
+
+;(depth (cons (cons (cons 'food empty) empty) empty))
+
+;3
+
+;(depth (cons 'food empty))
+
+;1
+
+;(depth 'food)
+
+;0
+
+
+(define (depth dl)
+
+ (cond
+
+ [(symbol? dl) 0]
+
+ [(cons? dl) (+ 1 (depth (first dl)))]))
+
+
+;make-deep : symbol natural-number -> deep-list
+
+;Consumes word and n to produce a deep-list
+
+;containing word constructed using n cons's.
+
+;
+
+;Examples:
+
+;(make-deep 'hey 3)
+
+;(cons (cons (cons 'hey empty) empty) empty)
+
+;(make-deep 'hey 0)
+
+;'hey
+
+;(make-deep 'hey 1)
+
+;(cons 'hey empty)
+
+;
+
+;Template
+
+;(define (make-deep word n)
+
+; (cond
+
+; [(zero? n) ...]
+
+; [(> n 0) ... (make-deep word (sub1 n))]))
+
+
+(define (make-deep word n)
+
+ (cond
+
+ [(zero? n) word]
+
+ [(> n 0) (cons (make-deep word (sub1 n)) empty)]))
+
+
+;Let the depth of a deep-list represent a natural-number.
+
+;The depth of a deep-list represents the number of cons
+
+;used to construct it.
+
+;
+
+;Some examples:
+
+;1. anysymbol represents 0,
+
+;2. (cons anysymbol empty) represents 1
+
+;3. (cons (cons anysymbol empty)) represents 2,
+
+;and so forth, where anysymbol is a symbol.
+
+;
+
+;Hence, we can represent
+
+;1.0 as (make-deep 'anysymbol 0)
+
+;2.3 as (make-deep 'anysymbol 3)
+
+;3.8 as (make-deep 'anysymbol 8).
+
+;
+
+;addDL : deep-list deep-list -> deep-list
+
+;Given dl1 and dl2, produces a new deep-list
+
+;that represents the sum of the natural numbers
+
+;of dl1 and dl2. In other words,
+
+;produces a new deep-list as deep as the sum of
+
+;the depth of dl1 and dl2.
+
+
+(define (addDL dl1 dl2)
+
+ (make-deep 'anysymbol (+ (depth dl1) (depth dl2))))
+
+
+(define DEEPLIST1 (make-deep 'anysymbol 5))
+
+(define DEEPLIST2 (make-deep 'anysymbol 8))
\ No newline at end of file
blob - /dev/null
blob + 56cdebcf578ccb000d551404b5139000a117fb90 (mode 644)
--- /dev/null
+++ 12.2.1.bak
@@ -0,0 +1,397 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+
+;; about the language level of this file in a form that our tools can easily process.
+
+#reader(lib "htdp-beginner-reader.ss" "lang")((modname 12.2.1) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp")))))
+
+;A natural-number is either
+
+;1. 0 or
+
+;2. (add1 n) where n is a natural-number
+
+;
+
+;! : natural-number -> natural number
+
+;Computes the factorial of n,
+
+;ie, n * (n-1) * (n-2)...2 * 1.
+
+
+(define (! n)
+
+ (cond
+
+ [(zero? n) 1]
+
+ [(>= n 1) (* n (! (sub1 n)))]))
+
+;
+
+;product : natural-number natural-number -> natural-number
+
+;Given m and n, and assuming m > n, computes (m!)/(n!).
+
+
+(define (product m n)
+
+ (/ (! m) (! n)))
+
+
+;; f : number -> number
+
+(define (f x)
+
+ (+ (* 3 (* x x))
+
+ (+ (* -6 x)
+
+ -1)))
+
+
+;
+
+;A list-of-posns is either
+
+;1. an empty list or
+
+;2. (cons p lop) where p is a posn and lop is a list-of-posns.
+
+;tabulate-f20 : natural-number -> list-of-posns
+
+;Creates a "table". Returns a list of n posns of the form
+
+;(cons (make-posn (f n) n) (cons (make-posn (f (- n 1) (- n 1)))...
+
+;Stops when n=20 (table includes n=20).
+