TrafficLight.rkt

#reader(lib"read.ss""wxme")WXME0108 ## 
#|
   This file uses the GRacket editor format.
   Open this file in DrRacket version 5.0.1 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/
|#
 28 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 30 #"(lib \"image-core.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 57
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\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 98 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 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 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 #"drracket: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 178 34 34 0 0 0 -1 -1 2 28
#"drracket:check-syntax:set!d\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 178 34 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 68 0 203 0 0 0 -1 -1 2 31
#"drracket: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 47
#"drracket:check-syntax:my-obligation-style-pref\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 178 34 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 0 116 0 0 0 0 -1 -1 2 50
#"drracket:check-syntax:their-obligation-style-pref\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 116 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 142 28 0 0 0 -1 -1 2
48 #"drracket:check-syntax:unk-obligation-style-pref\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 142 28 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 0 1 #"\0"
0 75 12 #"Courier New\0"
0.0 10 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 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.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.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.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.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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
-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 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 0 0 0 0 1 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
-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 1.0 1.0 1.0 0 0 0 0 0 0
-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 1.0 1.0 1.0 0 0 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 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
0 0 -1 -1 15 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 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 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
0 0 -1 -1 14 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
0 0 -1 -1 20 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 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 1.0 1.0 1.0 0 0 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.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.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.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.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.0 0.0 0 0 0 255
255 255 -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.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.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 1.0 1.0 1.0 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 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 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 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
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 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 -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 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 -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 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 8 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 8 24 #"drscheme:text:ports err\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 4 1 #"\0"
0 71 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 70 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 148 0 211 0
0 0 -1 -1 2 1 #"\0"
0 70 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 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 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 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 0.0 0.0 0.0 1.0 1.0 1.0 200 0 0 0 0
0 -1 -1 24 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
0 0 -1 -1 0 1 #"\0"
0 75 1 #"\0"
0.0 12 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 0 1 #"\0"
0 75 11 #" Monospace\0"
0.0 12 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 2 28 #"drscheme:check-syntax:set!d\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 178 34 34 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 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"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 65 105 225 0
0 0 -1 -1           0 874 0 17 3 85
(
 #";; The first three lines of this file were inserted by DrRacket. The"
 #"y record metadata"
) 0 0 60 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 60 29 1 #"\n"
0 0 24 3 7 #"#reader"
0 0 22 3 1 #"("
0 0 14 3 3 #"lib"
0 0 60 3 1 #" "
0 0 19 3 25 #"\"htdp-beginner-reader.ss\""
0 0 60 3 1 #" "
0 0 19 3 6 #"\"lang\""
0 0 22 3 3 #")(("
0 0 14 3 7 #"modname"
0 0 60 3 1 #" "
0 0 14 3 7 #"traffic"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 19 #"read-case-sensitive"
0 0 60 3 1 #" "
0 0 20 3 2 #"#t"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 10 #"teachpacks"
0 0 60 3 1 #" "
0 0 22 3 2 #"(("
0 0 14 3 3 #"lib"
0 0 60 3 1 #" "
0 0 19 3 13 #"\"universe.ss\""
0 0 60 3 1 #" "
0 0 19 3 11 #"\"teachpack\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"2htdp\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 3 #"lib"
0 0 60 3 1 #" "
0 0 19 3 10 #"\"image.ss\""
0 0 60 3 1 #" "
0 0 19 3 11 #"\"teachpack\""
0 0 60 3 1 #" "
0 0 19 3 6 #"\"htdp\""
0 0 22 3 3 #")))"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 13 #"htdp-settings"
0 0 60 3 1 #" "
0 0 22 3 2 #"#("
0 0 20 3 2 #"#t"
0 0 60 3 1 #" "
0 0 14 3 11 #"constructor"
0 0 60 3 1 #" "
0 0 14 3 17 #"repeating-decimal"
0 0 60 3 1 #" "
0 0 20 3 2 #"#f"
0 0 60 3 1 #" "
0 0 20 3 2 #"#t"
0 0 60 3 1 #" "
0 0 14 3 4 #"none"
0 0 60 3 1 #" "
0 0 20 3 2 #"#f"
0 0 60 3 1 #" "
0 0 22 3 2 #"(("
0 0 14 3 3 #"lib"
0 0 60 3 1 #" "
0 0 19 3 13 #"\"universe.ss\""
0 0 60 3 1 #" "
0 0 19 3 11 #"\"teachpack\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"2htdp\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 3 #"lib"
0 0 60 3 1 #" "
0 0 19 3 10 #"\"image.ss\""
0 0 60 3 1 #" "
0 0 19 3 11 #"\"teachpack\""
0 0 60 3 1 #" "
0 0 19 3 6 #"\"htdp\""
0 0 22 3 5 #")))))"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 20 3 2 #"20"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 1 #"6"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 2 #"ES"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 11 #"empty-scene"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 5 #"FRAME"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 9 #"rectangle"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"black\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 4 #"REDL"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 14 3 11 #"place-image"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 3 1 #" "
0 0 14 3 5 #"FRAME"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 2 #"-2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"solid\""
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 2 #"ES"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 6 #"GREENL"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 14 3 11 #"place-image"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 3 1 #" "
0 0 14 3 5 #"FRAME"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 2 #"-2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"solid\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 2 #"ES"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 14 3 7 #"YELLOWL"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 14 3 11 #"place-image"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 22 3 1 #"("
0 0 14 3 10 #"overlay/xy"
0 0 60 3 1 #" "
0 0 14 3 5 #"FRAME"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 2 #"-2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 5 #"     "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"solid\""
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 20 3 1 #"0"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"*"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"circle"
0 0 60 3 1 #" "
0 0 14 3 1 #"R"
0 0 60 3 1 #" "
0 0 19 3 9 #"\"outline\""
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"W"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 14 3 1 #"D"
0 0 60 3 1 #" "
0 0 20 3 1 #"2"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 2 #"ES"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 17 3 37 #";A TL is one of the following strings"
0 0 60 29 1 #"\n"
0 0 17 3 26 #"; \"yellow\", \"green\", \"red\""
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 17 3 15 #";next: TL -> TL"
0 0 60 29 1 #"\n"
0 0 17 3 38 #";determine the next state of the light"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 4 #"next"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 4 #"next"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 4 #"next"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 7         295 60           0 0           0 48 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 2 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 4 #"next"
0 0 2 3 1 #" "
0 0 14 3 1 #"l"
0 0 22 3 1 #")"
0 0 2 29 1 #"\n"
0 0 2 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 2 29 1 #"\n"
0 0 2 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 1 #"l"
0 0 2 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 1 #"l"
0 0 2 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 1 #"l"
0 0 2 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 1 #"]"
0           0 0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 4 #"next"
0 0 60 3 1 #" "
0 0 14 3 1 #"l"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 1 #"l"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 1 #"l"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 1 #"l"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 3 #"]))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 60 29 1 #"\n"
0 0 17 3 20 #"; tests are above..."
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 60 29 1 #"\n"
0 0 17 3 21 #";render: TL --> Image"
0 0 60 29 1 #"\n"
0 0 17 3 60
#";to render the state of tl and produce a corresponding image"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"render"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 4 #"REDL"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"render"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 7 #"YELLOWL"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"render"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 6 #"GREENL"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 7         301 60           0 0           0 49 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 2 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"render"
0 0 2 3 1 #" "
0 0 14 3 2 #"tl"
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 2 29 1 #"\n"
0 0 2 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"tl"
0 0 2 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"tl"
0 0 2 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"tl"
0 0 2 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 3 #"..."
0 0 22 3 3 #"]))"
0           0 0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 6 #"render"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 4 #"REDL"
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 7 #"YELLOWL"
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 8 #"string=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 14 3 6 #"GREENL"
0 0 22 3 3 #"]))"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 17 3 28 #";officer: TL KeyEvent --> TL"
0 0 60 29 1 #"\n"
0 0 17 3 32 #";to react tot officers decisions"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"r\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"g\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"g\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"r\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"u\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\"g\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 12 #"check-expect"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 60 3 1 #" "
0 0 19 3 3 #"\" \""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 7         349 60           0 0           0 57 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 2 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 2 3 1 #" "
0 0 14 3 2 #"tl"
0 0 2 3 1 #" "
0 0 14 3 2 #"ke"
0 0 22 3 1 #")"
0 0 2 29 1 #"\n"
0 0 2 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"ke"
0 0 2 3 1 #" "
0 0 19 3 3 #"\"r\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 5 #"...tl"
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"ke"
0 0 2 3 1 #" "
0 0 19 3 3 #"\"y\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 5 #"...tl"
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 2 3 1 #" "
0 0 14 3 2 #"ke"
0 0 2 3 1 #" "
0 0 19 3 3 #"\"g\""
0 0 22 3 1 #")"
0 0 2 3 1 #" "
0 0 14 3 5 #"...tl"
0 0 22 3 1 #"]"
0 0 2 29 1 #"\n"
0 0 2 3 4 #"    "
0 0 22 3 1 #"["
0 0 14 3 4 #"else"
0 0 2 3 1 #" "
0 0 14 3 5 #"...tl"
0 0 22 3 2 #"])"
0           0 0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"officer"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 60 3 1 #" "
0 0 14 3 2 #"ke"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 15 3 4 #"cond"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"ke"
0 0 60 3 1 #" "
0 0 19 3 3 #"\"r\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"ke"
0 0 60 3 1 #" "
0 0 19 3 3 #"\"y\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 8 #"\"yellow\""
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 2 #"[("
0 0 14 3 5 #"key=?"
0 0 60 3 1 #" "
0 0 14 3 2 #"ke"
0 0 60 3 1 #" "
0 0 19 3 3 #"\"g\""
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 19 3 7 #"\"green\""
0 0 22 3 1 #"]"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 22 3 1 #"["
0 0 14 3 4 #"else"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 22 3 3 #"]))"
0 0 60 29 1 #"\n"
0 0 60 3 4 #"    "
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 60 29 1 #"\n"
0 0 17 3 22 #";traffic: TL--> Images"
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 15 3 6 #"define"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 7 #"traffic"
0 0 60 3 1 #" "
0 0 14 3 2 #"tl"
0 0 22 3 1 #")"
0 0 60 29 1 #"\n"
0 0 60 3 2 #"  "
0 0 22 3 1 #"("
0 0 14 3 8 #"big-bang"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 14 3 2 #"tl"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 7 #"on-draw"
0 0 60 3 1 #" "
0 0 14 3 6 #"render"
0 0 22 3 1 #")"
0 0 60 3 1 #" "
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 7 #"on-tick"
0 0 60 3 1 #" "
0 0 14 3 4 #"next"
0 0 60 3 1 #" "
0 0 22 3 1 #"("
0 0 14 3 1 #"/"
0 0 60 3 1 #" "
0 0 20 3 1 #"1"
0 0 60 3 1 #" "
0 0 20 3 1 #"1"
0 0 22 3 2 #"))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 22 3 1 #"("
0 0 14 3 6 #"on-key"
0 0 60 3 1 #" "
0 0 14 3 7 #"officer"
0 0 22 3 3 #")))"
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 60 29 1 #"\n"
0 0 60 3 3 #"   "
0 0 60 29 1 #"\n"
0 0 22 3 1 #"("
0 0 14 3 7 #"traffic"
0 0 60 3 1 #" "
0 0 19 3 5 #"\"red\""
0 0 22 3 1 #")"
0           0