HtDP Ex 49.rkt

#reader(lib"read.ss""wxme")WXME0109 ## 
#|
   This file uses the GRacket editor format.
   Open this file in DrRacket version 7.9 or later to read it.

   Most likely, it was created by saving a program in DrRacket,
   and it probably contains a program with non-text elements
   (such as images or comment boxes).

            http://racket-lang.org/
|#
 33 7 #"wxtext\0"
3 1 6 #"wxtab\0"
1 1 8 #"wximage\0"
2 0 8 #"wxmedia\0"
4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
1 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
1 0 68
(0
 #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mrl"
 #"ib\"))\x00"
) 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 93
(1
 #"((lib \"collapsed-snipclass.ss\" \"framework\") (lib \"collapsed-snip"
 #"class-wxme.ss\" \"framework\"))\x00"
) 0 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
0 0 19 #"drscheme:sexp-snip\0"
0 0 29 #"drscheme:bindings-snipclass%\0"
1 0 101
(2
 #"((lib \"ellipsis-snip.rkt\" \"drracket\" \"private\") (lib \"ellipsis"
 #"-snip-wxme.rkt\" \"drracket\" \"private\"))\x00"
) 2 0 88
(3
 #"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.rk"
 #"t\" \"drracket\" \"private\"))\x00"
) 0 0 55
#"((lib \"snip.rkt\" \"pict\") (lib \"snip-wxme.rkt\" \"pict\"))\0"
1 0 34 #"(lib \"bullet-snip.rkt\" \"browser\")\0"
0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
1 0 22 #"drscheme:lambda-snip%\0"
1 0 29 #"drclickable-string-snipclass\0"
0 0 26 #"drracket:spacer-snipclass\0"
0 0 57
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
1 0 26 #"drscheme:pict-value-snip%\0"
0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 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 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 6 #"Menlo\0"
0 14 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 255 255 255 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 192 46 214 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 -1 -1 93 -1 -1 -1 0 1 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 175 0 0 0 -1 -1 2 17
#"text:ports value\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 57 89 216 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 157 157 250 0 0 0 -1 -1 2
37 #"framework:syntax-color:scheme:symbol\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 157 157 250 0 0 0 -1 -1 2
38 #"framework:syntax-color:scheme:keyword\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 157 157 250 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 249 148 40 0 0 0 -1 -1 2
38 #"framework:syntax-color:scheme:comment\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 249 148 40 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 140 212 140 0 0 0 -1 -1 2
37 #"framework:syntax-color:scheme:string\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 140 212 140 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 51 174 51 0 0 0 -1 -1 2 35
#"framework:syntax-color:scheme:text\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 51 174 51 0 0 0 -1 -1 2 39
#"framework:syntax-color:scheme:constant\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 140 212 140 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 151 69 43 0 0 0 -1 -1 2 49
#"framework:syntax-color:scheme:hash-colon-keyword\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 151 69 43 0 0 0 -1 -1 2 42
#"framework:syntax-color:scheme:parenthesis\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 151 69 43 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
36 #"framework:syntax-color:scheme:other\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
16 #"Misspelled Text\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 255 255 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 50 163 255 0 0 0 -1 -1 2
38 #"drracket:check-syntax:lexically-bound\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 50 163 255 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
28 #"drracket:check-syntax:set!d\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
37 #"drracket:check-syntax:unused-require\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
36 #"drracket:check-syntax:free-variable\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 166 0 255 0 0 0 -1 -1 2 31
#"drracket:check-syntax:imported\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 166 0 255 0 0 0 -1 -1 2 47
#"drracket:check-syntax:my-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 192 203 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 50 205 50 0 0 0 -1 -1 2 50
#"drracket:check-syntax:their-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 50 205 50 0 0 0 -1 -1 2 48
#"drracket:check-syntax:unk-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 240 230 140 0 0 0 -1 -1 2
49 #"drracket:check-syntax:both-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 240 230 140 0 0 0 -1 -1 2
26 #"plt:htdp:test-coverage-on\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 205 92 92 0 0 0 -1 -1 2 27
#"plt:htdp:test-coverage-off\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 205 92 92 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 2 37 #"plt:module-language:test-coverage-on\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 255 255 0 0 0 -1 -1 2
38 #"plt:module-language:test-coverage-off\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 205 92 92 0 0 0 -1 -1 0 36
#"mrlib/syntax-browser:subtitle-color\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 100 149 237 0 0 0 -1 -1 0
42 #"mrlib/syntax-browser:focused-syntax-color\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 50 205 50 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 191 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 191 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 152 251 152 0 0 0
-1 -1 0 1 #"\0"
0 -1 1 #"\0"
0 13 -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 0 1 #"\0"
0 -1 1 #"\0"
0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 255 255 0 0 0
-1 -1 2 1 #"\0"
0 -1 1 #"\0"
0 13 -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 -1 1 #"\0"
0 13 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 255 255 0 0 0
-1 -1 0 1 #"\0"
0 -1 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
0 -1 4 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 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 152 251 152 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
25 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
45 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
47 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 114 0 4 3 85
(4
 #";; The first three lines of this file were inserted by DrRacket. They"
 #" record metadata"
) 0 0 4 29 1 #"\n"
0 0 4 3 85
(5
 #";; about the language level of this file in a form that our tools can"
 #" easily process."
) 0 0 4 29 1 #"\n"
0 0 4 3 261
(6
 #"#reader(lib \"htdp-beginner-abbr-reader.ss\" \"lang\")((modname |HtDP"
 #" Ex 49|) (read-case-sensitive #t) (teachpacks ((lib \"image.rkt\" \"t"
 #"eachpack\" \"2htdp\"))) (htdp-settings #(#t constructor repeating-dec"
 #"imal #f #t none #f ((lib \"image.rkt\" \"teachpack\" \"2htdp\")) #f))"
 #")"
) 0 0 4 29 1 #"\n"
0 0 17 3 87
(7
 #";from https://htdp.org/2020-8-1/Book/part_one.html#%28part._sec~3ades"
 #"ign-itemization%29"
) 0 0 25 29 1 #"\n"
0 0 17 3 119
(8
 #";Reformulate create-rocket-scene.v5 to use a nested expression; the r"
 #"esulting function mentions place-image only once. "
) 0 0 25 29 1 #"\n"
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 1 #" "
0 0 14 3 5 #"WIDTH"
0 0 25 3 2 #"  "
0 0 22 3 3 #"100"
0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 1 #" "
0 0 14 3 6 #"HEIGHT"
0 0 25 3 2 #"  "
0 0 22 3 2 #"60"
0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 1 #" "
0 0 14 3 5 #"MTSCN"
0 0 25 3 3 #"  ("
0 0 14 3 11 #"empty-scene"
0 0 25 3 1 #" "
0 0 14 3 5 #"WIDTH"
0 0 25 3 1 #" "
0 0 14 3 6 #"HEIGHT"
0 0 25 3 2 #"))"
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 1 #" "
0 0 14 3 6 #"ROCKET"
0 0 25 3 1 #" "
0 2          21 22 1 #"\0"
2 -1.0 -1.0 0.0 0.0 0           5 500
(9
 #"\x89PNG\r\n\x1A\n\x00\x00\x00\rIHDR\x00\x00\x00\x1C\x00\x00\x00*\b"
 #"\x06\x00\x00\x00\xA0.;$\x00\x00\b\xACIDATX\x85\xDD\x97ypU\xE5\x15\xC0"
 #"\x7Fwy\xF7myK\x96\x97\xED\x01aI@\x02\x95EA\x11\xC1QAD\xACV\xB1*3\xCCP"
 #"fZ\xFD\xA3-\x1Dmq\xA9\xD6\xBAt,n\xB5Z\x15\xC4\xB2T\x1C\xAD\xD5!V\xA7"
 #"\x82N\xAD#\x14\xC1 \r4\x04L\x80\x17\x88\x84\xEC\x90\xF7^\xF2\x96\xFB"
 #"\xDE\xBD\xA7\x7F\xE4\xD9\x06\xC7\x10h\xF5\x9F\x9E\x993\xF7\xDC\x99{"
 #"\xCF\xEF[\xCE9\xDF\xF9\x14\x11a\x90(\x80\x9AS\rp\x00N\xC0\x0F\x94\x01"
 #"\x17\x91I\xACH)\xD9\x8A\x94n \x18\xE4\xA3z\x81\x04g'\n\"r\xAE\xAA\x88"
 #"\xC8\x8F\xDB\xA3]\xB2\xE9\xAD\xCD\"\"\xF7\x9F\xCB\xBF\xFF\r\x10\x11"
 #"\xA9~\xF0\xFE{E\x05\xD9\xB0~\x9D\x88\x88\xF7\x9B\x04*G\e\e\xFF6\xB9"
 #"\xACT\x8AT\x87\xCC\xBAh\x86d2\x99\x87\xBF1\xA0\x95N\xFF\xE2\xF2\xF0H"
 #"\x99ZX.\x01T\xF1z\f\xB9\xE7\xEE\x95\"\"\xBEo\x02x\xC3\x8B\xF7>$\x8BF"
 #"\x9F'\xE3\f\xAF\x18 \x80\xB8\\.I\xA7\xD3\x0F~\xDD\xC0\xA2h\xA4C\x96L"
 #"\x9C+S\xD4\x80xPE\xD5T\x01U<\xDE\x80\xAC\\y\xB7\x88\x88s8\xA0:L\x18\e"
 #"\xC0\xBC\x9C\xFD\x83\xE7\x9F~\x81\xFE\f\xB4I\x92\xAC\xC3\x8D\r\xA0"
 #"\xEA$\x12Ij\xDE\xD9\np\xC5\xB0\x89q\xC6\xFD\x12k\xAD\x88\xDC)\"$\xFA"
 #"\xCC\xBF\x16\xAAa\xB9\xB4z\xBEhJPT\xA3HPuA+\x10\x8C\x90\xA0\xFA$r\xF4"
 #"\xF8\xA7\xC3\xCDP\x11\x913\x8Dg)\xF0* \x9B7\xBF\x97]\xFD\xDCkj\xE5"
 #"\x94j\xDC>'\xF9\x01'^\x8FAgB8\xD8p\x80CM\x8DT\x86\x8By\xFB\xF5\xF5~ >"
 #"T\xE2\xEB\xC3,\xC0+\xB9g\xFE?\x8F\x1CW\x1F\xDF\xB0\x9A\x83'N\xA0\x90%"
 #"\xD6\xD4\x88\x15\x8F2i\xFATf\\<\x9B"
) 500
(10
 #"\xC8g\ay\xF4\xF1U\x00\xD3\x80mC9\x1C\x0E\xF8\x85\\h;\x9C\x9C\xCCd\x89"
 #"\xAB\x06{\xF7\xEC\xE7\xFD\xF5\e0z\xA3\x04\xAE\xB8\x8A\xBBn[\x86\xEA"
 #"\xF61a|5i\xD3\xBC\xC6i\x18C\x02\x87\v\x1A\x00b\xB1\xFE;,\x87\x81\xA9"
 #"\x1A\xD8\x9A\x8Bwv\xD6\x11i\xE9\xA6\xF1h\e\x9F\x1C\xED\xA07-\xB4G\x93"
 #"\xCC\xBA\xE4R\xF67\x1E\xBD\xF6L\xBE\xCE\x06\xE8Y\xB3\xF1\xD5\x85\xE3"
 #"\xAA\xC6\xD3\xD1}\n\xD5\xD6\xB9\xED\x86\e)\x19?\x0E\xAD\xB4\x84[\x16-"
 #"\xC2v\xB8\xB05'#\xC7\x8Ea\xEBG;'\x9E\xC9\xD9\xD9,\xE9\xE2\x8D\xAF\xFE"
 #"\x91\xD5/\xDFJ\xEB\xA9\f\x92\x86qe\x15<\xF3\xE4\xA3\x88$i\xB5\vI\x9AY"
 #"\xD0\x1C\x14\x97\x94\xB2\xF7\xF0A\x95\x81S\xE7+\xA3q8\xA0\xA3\xAB\xB3"
 #"\xF3E\xD3\x82h,F}\xFD1:Zct\x9F\xEA!\xEB\x8C\x93\xB2\xE2\xF4\x1A\xA3)p"
 #"\xE98\x92\xBDL\xAF\n\xD3\xD5s\x12\x06\xF27}\xAE@\xC5\xB6y\xEAX[\xA7;"
 #"\x16O\xB2\xE2\x8E{\x98<\xF3R&\xCE\x9E\xCD\x84\xF2\xD9\x88\xA6\x93\xCD"
 #"\xDA\x04\xB2q\x1A\x1A\x0ER\xB3u\x17[\xDF\xA9ave\b\e\x1EP\xE1}`;\f\xD4"
 #"\x87\x7F;\x1D\"\x0F\xBF\x05\xEC\xEEK\xA6\x9C\x0F\xFE\xEA\t\xA6^<\x97"
 #"\xC2Q\x13\xE9I+\xF4\x8BA<e\xE2\xF7x\xC0\x16,\xDBD\x13\x9B\xBD\xFF\xA8"
 #"#\x9Co\xB0}\xCB\x9Bl|\xFE\xD7\xE4\xE5\xE9\xE4i\xAE\xCB8=E\xFES\xDAlx"
 #"\xD6\x1E\xC8;\ap2\x9EH:\x97.[\xCE3\xCFo\xA44<\x9A\xAC+\x8Fx\x16t\xD3f"
 #"\xAC\xD7C^o\x17E\xF1n\f\xA7\x87\x8C\xADbZB\xB8|\x04^\xAF\x9F\xB9\x97]"
 #"E\xE2T\f`\xD6\x97g\xA2\x0E2\xF6%a!p\x1E\xE0xm\xDDKly\xE3\r\x8A\x83A<"
 #"\xBE\x00)[Au\xB8\xB0\xCC4\x7F~s3\xBF}\xF8\x11V\xAD\xFC\x19\x1F\xED"
 #"\xACC\xD3\f\xBC>?\xA9L\x06\xBF?\xC0\x91"
) 500
(11
 #"\x86\x83<\xBB\xEAI\x10\xB9\xE0\xAB\x80J\xCE^\xE7\x85B\xA0\xDE\xCE\xA4"
 #"\xEF\xF9\xD3/\xEF\xE7\xEA1c)\xF1:q;ul\xDBF\x11\xC1\x16\x8B\x977lbw"
 #"\xED\x87\xD4\x1F\xD8\xC6\xAE\x86#\xA8\xBAA\"\x9D!\xF2y\eb\xD9\x84\xFC"
 #"!\xDE\xDD\xB0\x89\xEE\xE6\xE6\xCB\x86\x9C\xE1 \xF1\xAD{\xEC\x91\xDB"
 #"\x8BT\x8B\xB1%%\x8C(/\xC3\x9D\x97\x87m\xA9d\xB3\n\xA6\xA8\x84\xCE\x9F"
 #"\f\xAA\x8B\x94bp\xED\xDCY\xF4'\x12\xE8\x0E\x9D\xF2\x92bt]gDI\x11#\xF3"
 #"\v\xF9\xC3\x13\xBF)f\xA0\x19;m\x0F\x95/\x01/\xF9\xFB\xE67(+\eA\xCB"
 #"\xA1\b\xCE@\x90xJ\xB0,\x1DM\xCF\xC3\x1D(\xE5\xE7\xF7=\xC0\xF2'\x9Ff"
 #"\xC5\x9A\x8D\x8C\x1F=\x02\xA7\xE1 \x9D19\xD1\xDE\x86m\xA59q$Bi \x9F7"
 #"\xD7\xBE\x00\xE0\x19jI\x01\x88uu-omh\"+\xD0\xD5\x17\xA58\\\x0E\xD8"
 #"\xE8\x8A`e\xD2X\x99,n\xB7\x8Bi3g2\xBAz2\xB6m\xE2p\b\xB6m\xE2\xF3\x18"
 #"\xB84\r;\xDB\x87\x9D\xEC#\xA0;\x00\x8A\a\xFB\xD7sP+\xF7>r\xC7+/\xDFRu"
 #"\xDE$v\xEEo\xA0Gup\xBE\x03t1\xD1%\x8Ef\xA6ID\xFB\xE8:u\x8A\x94\xD3Fuk"
 #"x(\xA0 \xE0\xC52\x93\xB8]\x1E\x1C\x9A\x85O\xD7\xE9lif\xC4\xA8Q\x00"
 #"\x95\xC0\x91\xC1@\r\xC8\x00\x06\xB6\xD5x\xF8P\x84\f\x0E>\x17\xE8\xCE"
 #"\ni[\xA3\xBE\xFE\x00kk\xB6\xB0\xA3\xF6\x00\xA4\x84)S'\xD1\xADZ\x18>7"
 #"\xADmQ\xCCH3hY\xE6\xAC\xBA\v\x05\x9B\x1E3JW\x16\n\t\x91\x88\xC5fz\xFC"
 #"\xFE\xF7\x06\x03\r \x05\x84SV\xDC\xDDp\xFC(\xFB\x8F\xB7\xA3\xFBG\xA1*"
 #"~\xF64\xB6\x13\x9A\xD0\xCD\xF5\v\xAF\xE3\xD6\x9B\x96b\xA5,2\xA8tD\xFB"
 #"\xE973\xB8\x1DI\n\xFC\x1E6\xD5\xD4\xB0m\xC7\xC7\xEC\xFD\xE0C\xF2\xDD>"
 #"\xCCt\x9C\xA4\xD8\xD4\xD5\xD6.\x98"
) 500
(12
 #"=o\xDE#\x83\xF7\xD0\x97\xB3\x93\xC9t\x8A\xFD\x91\xCFh\x89\xF6\xD0\x16"
 #"\xED!\e\x8Bq\xF5\xBC+\xB9n\xE1\x02\n\x02A>\xDESG\xDC\xCC\xE0\xC9\xCB"
 #"\xC3\xE7\xF5QQ6\x82\x80\xCF\xCB\xEE}\xF5\xF4D{\xF9\xF6\xD5\xF3\x996}*"
 #"\x1D\xC9\x04m\x02=\x99\x14\xEB\x9E\xF9\xDD\xEC\xC1q\xA2\x03\xE5@+\x90"
 #"0\xE3q\x0E\x1F\x8A\x90\xB2\xA0T\xF3\x92t\xBA\xF1\x19\n\x9A\x92!\x94"
 #"\xEFa\xEE\x8C\xF3i\xEE\xE8\xA6=\xD2E\xBC/\x85\xCB\xE9D\xD5\xB2T\x84"
 #"\xCB\x89\xF6V\xA2\xA0\x93\xCA\b\xAA'@\x7F\xE2$=\x99\f\xCE\x81\x8A\xE3"
 #"\xCC\xAD\"\xBA\x8D}\xAB\x8A\xBA\e0\e\xF6\xD6\x93\x11\xB0\x15\xE8\xB3"
 #"\xA2$\x12)\xB2\x99>\xD2\xA98\x91\xE6\b\xAD'c\xE4\x87B\x8C\xAF\x1A\x83"
 #"\x8AJ*\x91\xC4\xB4m\xB6\xED\xAA\xA5\xB3\xA7\x17D\xA5\xB3\xBB\x17\xDC^"
 #"\x1C\x1E\x9B}m]\xD8\xDE.\x18\xB8\f\r\x00\xD3\xA8w\xBA\xE1s\xE0\xB9"
 #"\xAE\xF6>\f\xAF\x87[n\xBA\x99iS\xA6\xD2\x1DO\x91\xB0\xFB\xC8\xF3\xBB"
 #"\b\x95\x16\xD2\x1A\xED\xE3dO\x94\xF6\xF6nl+\x8B\xAE)t&l\xC4V)\f\x16"
 #"\x90\xB1\xA0(T\xCC\x05\x17]\xCC'u\xDB\xB1T\x85\xDE\xFE$@\x10\xE8\xCC"
 #"\xCD\x90C\xC0\xB3\x00\xCDGZ\xA8\xDB\xDF\xB4\xB34\x1C\x9E\x0F\xCC?r,R"
 #"\xB3\xE9\xAD\xBFP\xB7\xAF\x8EC\x1D}\x14\x14\x84h:|\x9Cl\xDA$k\xA5q:\r"
 #"&M\x9AN\xD0\xEB!\x15\x8F\xE2\xD0\r\x82\x05\x05\xAC}n\x156)\xD6\xFF"
 #"\xFE%\xD6<\xB6\xFA\xB4\xE4\xD7\xBD\xB0\x92\xDC\x99\xB5x\xD9w\xD3\xA5"
 #"\xE1\xF0\x02\xA0\x1Fx[,\xB5\xBFe\xFFAo{\xD31v\xEC\xAA\xA5\xA9\xE9(f\""
 #"\x06\x9A\x81\xE6v\xE3\xF5\xFB\xC8\x06\xAB(+\b0\xA92\xCC\x94\xEAJ\xE2"
 #"\xBD\x9D\x04]\xCA\xDB\x1A\xEE\xC5w\xFFhE\xC5\xA4\xCA1\x87\x19\xDC6"
 #"\x8AH\xF9\xA0Fu\xB0\x8Dif\x9ER4\x97hFPP\xBD\x82^ Z^XP|"
) 277
(13
 #"\x82#$\x18%B\xF1\x1C\xC19Y\x16.\xFD\xA9L\x9C\xB3XnX\xF6C\x11\x91\xEBs"
 #">\x16\xA6\xB3\xE9wED\xCB\xBD\xAB*prP\xE591\xB8\f9\x1C\xFA\xE6\t\x13"
 #"\xAB\xB1\xCC\x04\xD3g\\\xC8}\xF7\xADd\xD1\x82\xCBAs\xE0\xF2xY\xBEl\t"
 #"\xB7\x7F\xFF&|\x15%|\xB0}'\xCB\x97\xDCH\xD5\x98\nl\x9B\xEF\xE4\\l14"
 #"\xE3\x9AA\x95\fDD=Ck\xEE\xF8\xB4n_\x9F\xE1-\x12\xD0\x05\fA\xF5\x88"
 #"\xA2\x05\x04\xD5'\xAA\x1E\x14\x9Cc%X5G\x96\xFF\xE4\x01)\x19?C\xD6l|]"
 #"\x92\x96\fu}S\x15\x11\x19\xB2\xC3\xCAI0\x952\x9F^\xBD\xE6\xC5\xEF\xD5"
 #"\xD6\xEE\xE1\x93\xDAZ\x8E5\xB7\x10*/G\xB1\x84\x8A\xEA\xA9\x94\x95\x15"
 #"q\xFD\xC2+;\x97\xDC|\xE3\xE3N]\xDD\x01$\x81S@\xCB\x97|\xA9\xC3\xDD-N"
 #"\xFB\x98\x81\xF0.\xCA\xE9\x175\xB8+\xA7\xF1a\x06~\xCE\xC0\xFFY\x1E"
 #"\x02\xF5\xACZ\xFD\xAFS\xFE\xFF\x81\xFF\x02\xEC|\xD3\x0FV\xF6\e\xB7"
 #"\x00\x00\x00\x00IEND\xAEB`\x82"
) 0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 1 #" "
0 0 14 3 20 #"ROCKET-CENTER-TO-TOP"
0 0 25 29 1 #"\n"
0 0 25 3 3 #"  ("
0 0 14 3 1 #"-"
0 0 25 3 1 #" "
0 0 14 3 6 #"HEIGHT"
0 0 25 3 2 #" ("
0 0 14 3 1 #"/"
0 0 25 3 2 #" ("
0 0 14 3 12 #"image-height"
0 0 25 3 1 #" "
0 0 14 3 6 #"ROCKET"
0 0 25 3 2 #") "
0 0 22 3 1 #"2"
0 0 25 3 3 #")))"
0 0 25 29 1 #"\n"
0 0 25 3 1 #" "
0 0 25 29 1 #"\n"
0 0 25 3 1 #"("
0 0 15 3 6 #"define"
0 0 25 3 2 #" ("
0 0 14 3 22 #"create-rocket-scene.v5"
0 0 25 3 1 #" "
0 0 14 3 1 #"h"
0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 3 #"  ("
0 0 14 3 11 #"place-image"
0 0 25 3 1 #" "
0 0 14 3 6 #"ROCKET"
0 0 25 3 1 #" "
0 0 22 3 2 #"50"
0 0 25 3 1 #" "
0 0 25 29 1 #"\n"
0 0 25 3 3 #"  ("
0 0 15 3 4 #"cond"
0 0 25 3 1 #" "
0 0 17 3 47 #";added the cond within the place-image function"
0 0 25 29 1 #"\n"
0 0 25 3 6 #"    [("
0 0 14 3 2 #"<="
0 0 25 3 1 #" "
0 0 14 3 1 #"h"
0 0 25 3 1 #" "
0 0 14 3 20 #"ROCKET-CENTER-TO-TOP"
0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 5 #"     "
0 0 14 3 1 #"h"
0 0 25 3 1 #"]"
0 0 25 29 1 #"\n"
0 0 25 3 6 #"    [("
0 0 14 3 1 #">"
0 0 25 3 1 #" "
0 0 14 3 1 #"h"
0 0 25 3 1 #" "
0 0 14 3 20 #"ROCKET-CENTER-TO-TOP"
0 0 25 3 1 #")"
0 0 25 29 1 #"\n"
0 0 25 3 5 #"     "
0 0 14 3 20 #"ROCKET-CENTER-TO-TOP"
0 0 25 3 2 #"])"
0 0 14 3 5 #"MTSCN"
0 0 25 3 2 #"))"
0           0