From 18fe65291286ac4c6dc2078b52604c5eeafaaf2d Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 8 Aug 2011 16:21:46 -0400
Subject: [PATCH] trying to rewrite applications

---
 get-module-bytecode.rkt | 156 +++++++++-
 image-to-uri.rkt        |  23 ++
 test.rkt                | 621 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 793 insertions(+), 7 deletions(-)
 create mode 100644 image-to-uri.rkt
 create mode 100644 test.rkt

diff --git a/get-module-bytecode.rkt b/get-module-bytecode.rkt
index c525b5b..74ce24f 100644
--- a/get-module-bytecode.rkt
+++ b/get-module-bytecode.rkt
@@ -2,8 +2,11 @@
 (require racket/path
          racket/runtime-path
          syntax/modcode
+         racket/contract
          "language-namespace.rkt"
-         "logger.rkt")
+         "logger.rkt"
+         syntax/kerncase
+         (for-template "resource.rkt"))
 
 (provide get-module-bytecode)
 
@@ -11,7 +14,11 @@
 (define-runtime-path kernel-language-path
   "lang/kernel.rkt")
 
-  
+
+
+
+
+
 (define (get-module-bytecode x)
   (log-debug "grabbing module bytecode for ~s" x)
   (let ([compiled-code
@@ -19,14 +26,14 @@
            ;; Assumed to be a path string
            [(string? x)
             (get-compiled-code-from-path (normalize-path (build-path x)))]
-
+           
            [(path? x)
             (get-compiled-code-from-path x)]
-
+           
            ;; Input port is assumed to contain the text of a module.
            [(input-port? x)
             (get-compiled-code-from-port x)]
-
+           
            [else
             (error 'get-module-bytecode)])])
     (let ([op (open-output-bytes)])
@@ -56,8 +63,143 @@
    `(file ,(path->string kernel-language-path)))
   #;(make-base-namespace))
 
-   
+
 (define (get-compiled-code-from-port ip)
   (parameterize ([read-accept-reader #t]
                  [current-namespace base-namespace])
-    (compile (read-syntax (object-name ip) ip))))
\ No newline at end of file
+    (define expanded (expand (read-syntax (object-name ip) ip)))
+    ;; We need to translate image snips in the expanded form so we can
+    ;; fruitfully use compiler/zo-parse.    
+    (compile (kernel-syntax-case expanded #f
+               [(module id name-id (#%plain-module-begin module-level-form ...))
+                
+                #`(module id name-id (#%plain-module-begin 
+                                      #,@(map convert-images-to-resources
+                                              (syntax->list #'(module-level-form ...)))))]))))
+
+
+(define code-insp (current-code-inspector))
+
+
+(define (on-expr expr)
+  (kernel-syntax-case (syntax-disarm expr code-insp) #f
+    
+    [(#%plain-lambda formals subexpr ...)
+     (quasisyntax/loc expr
+       (#%plain-lambda forms #,@(map on-expr (syntax->list #'(subexpr ...)))))]
+    
+    [(case-lambda case-lambda-clauses ...)
+     (quasisyntax/loc expr
+       (case-lambda #,@(map (lambda (a-clause)
+                              (syntax-case (syntax-disarm a-clause code-insp) ()
+                                [(formals subexpr ...)
+                                 (quasisyntax/loc a-clause
+                                   (formals #,@(map on-expr #'(subexpr ...))))]))
+                            (syntax->list #'(case-lambda-clauses ...)))))]
+    
+    [(if test true-part false-part)
+     (quasisyntax/loc expr
+       (if #,(on-expr #'test)
+           #,(on-expr #'true-part)
+           #,(on-expr #'false-part)))]
+    
+    [(begin subexpr ...)
+     (quasisyntax/loc expr
+       (begin #,@(map on-expr (syntax->list #'(subexpr ...)))))]
+    
+    [(begin0 subexpr ...)
+     (quasisyntax/loc expr
+       (begin0 #,@(map on-expr (syntax->list #'(subexpr ...)))))]
+    
+    [(let-values bindingss body ...)
+     (quasisyntax/loc expr
+       (let-values #,(syntax-case (syntax-disarm #'bindingss code-insp) ()
+                       [(binding ...)
+                        (quasisyntax/loc #'bindings
+                          (#,@(map (lambda (binding) 
+                                     (syntax-case (syntax-disarm binding code-insp) ()
+                                       [(ids expr)
+                                        (quasisyntax/loc binding
+                                          (ids #,(on-expr #'expr)))]))
+                                   (syntax->list #'(binding ...)))))])
+         #,@(map on-expr (syntax->list #'(body ...)))))]
+    
+    [(letrec-values bindingss body ...)
+     (quasisyntax/loc expr
+       (letrec-values #,(syntax-case (syntax-disarm #'bindingss code-insp) ()
+                          [(binding ...)
+                           (quasisyntax/loc #'bindings
+                             (#,@(map (lambda (binding) 
+                                        (syntax-case (syntax-disarm binding code-insp) ()
+                                          [(ids expr)
+                                           (quasisyntax/loc binding
+                                             (ids #,(on-expr #'expr)))]))
+                                      (syntax->list #'(binding ...)))))])
+         #,@(map on-expr (syntax->list #'(body ...)))))]
+    
+    [(set! id subexpr)
+     (quasisyntax/loc expr
+       (set! id #,(on-expr #'subexpr)))]
+    
+    [(quote datum)
+     (quasisyntax/loc expr
+       (quote #,(on-datum #'datum)))]
+
+    [(quote-syntax datum)
+     (quasisyntax/loc expr
+       (quote-syntax #,(on-datum #'datum)))]
+
+    [(with-continuation-mark key value body)
+     (quasisyntax/loc expr
+       (with-continuation-mark #,(on-expr #'key) #,(on-expr #'value) #,(on-expr #'body)))]
+    
+    [(#%plain-app subexpr ...)
+     expr
+     #;(displayln expr)
+     #;(quasisyntax/loc expr
+       (#%plain-app #,@(map on-expr (syntax->list #'(subexpr ...)))))]
+
+    [(#%top . id)
+     expr]
+    
+    [(#%variable-reference (#%top . id))
+     expr]
+    [(#%variable-reference id)
+     expr]
+    [(#%variable-reference)
+     expr]))
+
+        
+
+(define (on-datum datum-stx)
+  (printf "looking at datum: ~s\n" datum-stx)
+  datum-stx)
+
+
+
+(define (convert-images-to-resources stx)
+  
+  
+  
+  
+  (kernel-syntax-case (syntax-disarm stx code-insp) #f
+    [(#%provide raw-provide-spec ...)
+     stx]
+    
+    [(#%require raw-require-spec ...)
+     stx]
+    
+    [(define-values ids expr)
+     (quasisyntax/loc stx 
+       (define-values ids #,(on-expr #'expr)))]
+    
+    [(define-syntaxes ids expr)
+     (quasisyntax/loc stx 
+       (define-syntaxes ids #,(on-expr #'expr)))]
+    
+    [(define-values-for-syntax ids expr)
+     (quasisyntax/loc stx 
+       (define-values-for-syntax ids #,(on-expr #'expr)))]
+    
+    [else
+     (on-expr stx)]))
diff --git a/image-to-uri.rkt b/image-to-uri.rkt
new file mode 100644
index 0000000..846bc46
--- /dev/null
+++ b/image-to-uri.rkt
@@ -0,0 +1,23 @@
+#lang racket/base
+
+(require file/convertible
+         net/base64
+         racket/contract
+         2htdp/image)
+
+
+(provide/contract [image->uri
+                   (image? . -> . string?)])
+
+
+;; This code is ripped out of the tracer library written by
+;; Will Zimrin and Jeanette Miranda.
+
+;; Translates image values to embeddable uris.  See:
+;; http://en.wikipedia.org/wiki/Data_URI_scheme
+
+;; returns the data-uri encoding of an image.
+(define (image->uri img)
+  (define base64-bytes (base64-encode (convert img 'png-bytes)))
+  (string-append "data:image/png;charset=utf-8;base64,"
+                 (bytes->string/utf-8 base64-bytes)))
diff --git a/test.rkt b/test.rkt
new file mode 100644
index 0000000..dbfee73
--- /dev/null
+++ b/test.rkt
@@ -0,0 +1,621 @@
+#reader(lib"read.ss""wxme")WXME0108 ## 
+#|
+   This file uses the GRacket editor format.
+   Open this file in DrRacket version 5.1.2 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 #"wximage\0"
+2 0 8 #"wxmedia\0"
+4 1 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 68
+(
+ #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
+ #"lib\"))\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 54 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 10 #"Monospace\0"
+0 9 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 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 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 142 28 0 0 0 -1 -1 2
+49 #"drracket:check-syntax:both-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 2
+26 #"plt:htdp:test-coverage-on\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 0 0 0 255 165 0 0 0 0 -1 -1 2 27
+#"plt:htdp:test-coverage-off\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -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 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 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 37
+#"plt:module-language:test-coverage-on\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 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 176 48 96 0 0 0 -1 -1 2 38
+#"plt:module-language:test-coverage-off\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 176 48 96 0 0 0 -1 -1 0 1
+#"\0"
+0 75 10 #"Monospace\0"
+0.0 9 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 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           0 66 0 26 3 17 #"#lang racket/base"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 7 #"require"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"for-syntax"
+0 0 4 3 1 #" "
+0 0 14 3 11 #"racket/base"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 9 #"         "
+0 0 14 3 11 #"2htdp/image"
+0 0 22 3 1 #")"
+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 14 3 7 #"require"
+0 0 4 3 1 #" "
+0 0 19 3 18 #"\"image-to-uri.rkt\""
+0 0 4 29 1 #"\n"
+0 0 4 3 9 #"         "
+0 0 19 3 25 #"\"get-module-bytecode.rkt\""
+0 0 22 3 1 #")"
+0 0 24 29 1 #"\n"
+0 0 24 29 1 #"\n"
+0 0 24 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 24 3 1 #" "
+0 0 14 3 8 #"an-image"
+0 0 24 3 1 #" "
+0 2          35 4 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0          12 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0X\0\0\0U\b"
+ #"\6\0\0\0\315\v#\352\0\0\0\6bKGD\0\377\0\377\0\377\240\275\247"
+ #"\223\0\0\25\355IDATx\234\355"
+ #"\234Y\254\34\305\271\200\277\252\236\231\263"
+ #"y7\266\317\361n\360\2\266\3\16\306\vf7\216\223\\ \21I\20\302\271\220"
+ #"D\212\24\244D\21\nW\271I$\256P\224\227(/\311KP\36\22\31\t\2"
+ #"\17(\4\"\24\226k.\4\204\314*\300\6cb\233\v\266\217}\354\30\373\370"
+ #",\263tW\325}\250\251\236\232\236\356Y\354c@W\374R\251{z\252{\252"
+ #"\276\371\373\257\277\376Z\4`\370LH"
+ #"\16\350\5\246\0\223\200n\244\314c\214"
+ #" \b\24RV\20\242H\30\236\306\230Q\240\4h\314g\244\364Y\"\370\224\0"
+ #"O\236<\203\201\201\305,^\274\224y"
+ #"\363\26\323\337\337O>?\235R\251\207#Gr\274\367^\300\256]\206R\311\0"
+ #"\32!\24P\301\230q`\24)?F\210#\b\361\21B\374/Qt\4\30\377"
+ #"\314\1\377D\1\367\317[\304\232\265\353"
+ #"\270l\375:\226-[\312\254i\323\350)\4H\t\306h\300T\217\2320\324\34"
+ #"8\240y\350!\315\363\317k@\1\272Z\\\355\235G\3008\360/\204\330\207\20"
+ #"\273\201\177b\314\360g\2\3669\a\334=e\n\3536ld\363\225W\261f\356"
+ #"\\f\227K\344N\17C>\217\276\350"
+ #"B\30\230\213\bCL\225\206\326\272\232"
+ #"\24Bh\224R\334\177\277b\373v\205"
+ #"\205\234\226\34p\2002B\34C\312\335\300kh\375A\374\354OC\316\31\340I"
+ #"\347\235\307\346u\353\270i\351RV\236"
+ #"\32\246g\317\273\210\375\373\221'O\22"
+ #"\0\1 \346\314\201{\357\305|\365\253\230\361q\2141(\245\352\222"
+ #"\326\nc\"~\363\233\210G\37\215\260\32\353\222\362\216>lU-\305"
+) 500
+(
+ #"(\260\27)_\4\366\242\265\342\223\226"
+ #"\t\a\234\v\2\256\17\2\266\255X\301\3120\244g\377~raH\36\310c\233"
+ #"2\a\30\300L\232\204\371\323\237\320["
+ #"\267\242\307\307QJ\21E\21a\30\306G\255#FFB\356\2743\344\335wC"
+ #",\324\260\232\34d\22745\350\316\214"
+ #"\24\221\362=\204\370\37\264\336\377\211\232"
+ #"\216\211\3,\4\253\244\344\373\300\225Z\323g\f]X\277\240\e(`\341\n@"
+ #"V\217N\314\300\0\321\263\317\22.YB8>N\30\206T*\225\272\243\224!"
+ #";vD\334uW\5\255\35d?\371\327\2346\373\347\32\30A\210\327\201\3470"
+ #"\346\324\204T\273\225\4\300\275g\373\220"
+ #"B\20\360\357R\3623\245Xk\fS\201\31\300t\254\323\325\203\5\3544\327\1"
+ #"vI\216\216\22\f\16\222\273\3556d\20 \204\250K\0J\t\346\3177\354\334"
+ #"i8z\324\375rR7\4\351b\252)\a,\0\226\"\345\bp\354l\253\336"
+ #"R\316\32\360\202|\236\377\22\202mQ"
+ #"\304\0\26\354L\240\17k\22\222\332\232%b\357^\344e\227\21\254\\I %"
+ #"R\312:\300\0]] \4\354\330\341"
+ #"\337i\22\347\315~\315\201\356\303\230\345"
+ #"\4A7p\220\232\315\236x9+\300\353s9~\245\24W(\305L,\330I"
+ #"\325\207:\333\343\252\233Uu\207G\0"
+ #"\346\360a\304\355\267\23\344\363\4A\200"
+ #"\224\262>\257\201\376~\303\323O\303\360"
+ #"p\22\254\361\236\226f\365\222\337I\214"
+ #"\231\17\364c!\227\332\253t\207rf"
+ #"\200\205\340+A\300\275J\261\22\230\205"
+ #"5\ay\352!f\235\223\270\356\276\23"
+ #"\207\16\301\365\327\303\242EH)c\310\316\3152\6&O6\34?\16\257\276\n"
+ #"\265F\314\207\353\334\265,\310&q>\23k6\216\0#mT\2763"
+ #"\351\34\260\224|+\b\370\231R,\1fc\315A\253\27\323IS\2156"
+) 500
+(
+ #"\6\272\273\341\206\el^!bSa\277\266P\246L1\374\345/\20E\256\323"
+ #"\221\246\301\311\224U\"S\255\301B\244"
+ #"\34\302\230\341\246\325\357Td\353,\236"
+ #"\b\301\267\202\200\377\210\"\26b\341v{_\247U+\r\256;O{\241\3153"
+ #"\317`\306\306\354\2711H)\351\352\352"
+ #"\242\273\273\233\256\256.\244,\260jU"
+ #"\201\265ks\330F\313\245\254&4\231dF\232\211\3267\20\4\363;B\322J"
+ #":\2\374oRrw\30\262\0\v\267\340}\3474\322\177\345I|NBO\263"
+ #"\323|\360\1\274\365V|\335A.\24\ntuu\221\317\27\350\353\313s\323M"
+ #"i\236u\328\341\375\232\179\r\366L\224\372j\265v\23#m\3^/%"
+ #"\377\251T\254\271\371\304\367\311\327=\v"
+ #"t\332\365\272<J!^z\311^\367\274\210 \bb\310B\24\270\376\372<3"
+ #"g&\265\327O\355h\262\17\331\3353\v\330\212\20S\332E\323T\332\2\2740"
+ #"\227\343\347\306\260\b8\257Z\245s*;w\246^\316\345r\24\n\5\202 \317"
+ #"\222%y\266nm\246\305I\r\365%"
+ #"\313\\\270\373\347b\314\265\b\221T\243\316\245%\340\236 \340ncXi\f3"
+ #"\2517\v\347Lv\357\206\361\361\206\313"
+ #"B\b\362\371<\371\274\205|\353\255yr\271,;\354\203N{w \333&\a"
+ #"\300\5\300ZD\362\226\16\2459`!\330&\4\327V\375\334IM\2626\363<"
+ #"\233Ij\236\217>\262)E\244\224\344r9\214\311\261~}\216\215\e;\201\333"
+ #"\314P\371Z\35\0y\214\271\4!\26\265Q\213li\n\370\vB\360\355(b"
+ #"\0060\255\305\203\322\376\350\266zpi"
+ #"\27\213E\370\360\303\364\374B\20\4\1"
+ #"A\220\243\247'\340\333\337N\263\275I3Q\347mg\224B\244\334"
+ #"\327\207\326\e\260\235\3753\223L\300\5!\370\276\326\314\303v\177\203"
+) 500
+(
+ #"\254\214g mE\227j\1\207\6\261"
+ #"\200\3\224\222l\331\"Y\261\"\315\216"
+ #"\266c\"|\361\363\372\317\231\3\254n\247\304\231OM\225/K\311F`2g"
+ #"\363\377\245K[fMf\277\\N\213\205\b\230>=`\333\266,\367,M{"
+ #"\333\321d\227\334[q!\266\307\327\271"
+ #"\244\326bj\20p\213\326L\6\246R\363W\323:\20YQ\200\254NG\333i"
+ #"`\300\36\215\211\23\20\37]7:\212$_\373\232d\336\274\206\30]\n0'"
+ #"\315\376\3424wn2\260\272.\360\324"
+ #"\256\244\2\336\n\254\250\206\35\375\236Z"
+ #"\332\377\237,~\332\365\216\323\244I\210"
+ #"%K\354y\"l\351\316]\254\2$\375\375\222[n\311\202\332\252qKJ\22"
+ #"\2563\27\v\261Njg\322\0x\262"
+ #"\20\334\240\24\223\260\261\334\316\372\322\331"
+ #"\322N|+\226\345\313a\341\302\372\274"
+ #"\211a\b\a\331j\261\340\e\337\220\314"
+ #"\234\331\nr\273\222\346U\364a\314\212"
+ #"\16\236a\245\201\337\345\300Rj#\21I\311\n\233\264j\270|3\223&uf"
+ #"\346\252\2530\371|\235i\250\313kL\235fk-Y\270Pp\323M\376\257\245"
+ #"\275[\315 \247EM\222\232<\37k4\333\227:\300\201\224l\26\202n,`"
+ #"\337s\310*f\263&#)\315\356\255C\261uk\235y\240z\336\360\274\0302"
+ #"h\r\337\374\246\240\257/\313\307\315\372"
+ #"\334\254\264\376Q\2\275\b\2610#\177"
+ #"\272\324\1^\"%\27iM\36\253\275"
+ #"\235\233\364\t\220\205\va\323\246\246Y"
+ #"\322\354r\24\t\226-\23l\336\234z\307Y\24\250\336T\0303\217\306HL\266"
+ #"\324\1^\217\r\234\27314h\35ame\32Z\231\204\206t\343\215\230i\323"
+ #"jy\306\3060\17?\2149q\242vo\325l$\207\224\214\201\233o"
+ #"\206\\\333\301\222\264Q\21'i\346E\2\323\20bz\273?P\3\234\3"
+) 500
+(
+ #"\326x\332\353\227\261\35\210\355\346q)"
+ #"U\247\202\0\261m[\3557\225\202;"
+ #"\357\204\333n\203\273\356\302\37oO\263"
+ #"\315Q\4_\370\2\254Y\223\374e\262"
+ #"~1\221'\2536\276\231\350\302\0163\265'1\340~!X\24259j\203\225"
+ #"\311\3077sv\262\212/\0\223\30%"
+ #"\26B\200\20\215\317\331\260\1\326\257\257"
+ #"]\373\363\237\341\201\al\276\a\37\204"
+ #"\307\37\267\371\274\21\16\37\264\326\206B"
+ #"\1n\2741Y\212$\264\266\372\222\244"
+ #"kq\2001\347\321\256\177\25\347Z\212"
+ #"u\247\375~P\326hD\326\365\3642\212\354<B\324\353\327\17~\0yk\337"
+ #"\304\3600\342W\277\212\3575\306\300\275"
+ #"\367\3328\205\177\215z\320\225\212a\303"
+ #"\6\303\300@\253\341\242,\343\227V\313"
+ #"\270\300\325\343d\254\e\320Z\244\253\350"
+ #"r)\353\302%\311\"5\353\261e\25\307\1lj\277\2356._\216\271\371\346"
+ #"Z\236\207\36\302\274\377~}\3767\337"
+ #"\204\307\36k\350\341\371Ik\230>\335"
+ #"p\355\265\311\32\264+\255\f\236\300\232"
+ #"\211\366\3345\t \205`\00153\236\366b4\353\261\371\307\264\342dy\243u"
+ #"&\342G?BL\236l?\27\213\210\373\356kx\6\0\277\375-\224\313 D"
+ #"<Q\260\36\260&\212\f\327]g(\24Z5\315\355^O\326(\300jqk"
+ #"\221\0\223\204`\246R\251\0Z\375\237"
+ #"\231\337\245\371\255i\367\32\3\313\226!"
+ #"\356\270\243\326\0>\372(\274\375v\303"
+ #"=\2\340\345\227\21O>\211\366\0'!G\221\341\374\363\r_\374b;\357^"
+ #"\262&Y5J\226\244\3\300S\215a\n\3557`\255z\363\235\212\270\373n\230"
+ #":\325\376V\245\2\277\373]\363g\377"
+ #"\376\367\3500\254\3\354\203\326\332 \245"
+ #"a\353\3264\357\240\231\321J\346K-m5\3654+a"
+ #",\26\260\326\24\252\217t\223?\233\275\\\355\372\303-\253"
+) 500
+(
+ #"c\ff\315\32\314\355\267\327\236\363\364"
+ #"\323\230W_mn\273\237{\16\365\362\313\250 \310\204\\.k\326\2541,Y"
+ #"\322\256\211h\347{'\316\16\267v\270-`!\2204\2\316\322hR\276k\370"
+ #"/\215ii\307\21\2\356\271\az{"
+ #"\3555c\340\276\373\20\325{\263\356\323"
+ #"\225\n\352\301\aQ)f\242\366\331\320"
+ #"\323\243\371\322\227\222\23S\232ih+"
+ #"\225\361\363H\332\6\334\27\4\30\352'"
+ #"}\352D\30635\5\231\367\31\203\370"
+ #"\362\227\341\353_\257]{\353-\304\263"
+ #"\317\266|\246\6\324\343\217\243>\372\b"
+ #"\225\230\264\355C\256T\f\e7\32f\315j\69\353\35\245E^I;]f"
+ #"\t\220S\252N{\335,\333\263\226\254"
+ #"\231\316\306@o/\346\227\277\204\300\v"
+ #")m\337\16\245\346\223\360\f\325\231\300"
+ #"\203\203\250g\236A\5Au&|\243\231\210\"\303\264i\326\243h\17p\253\306"
+ #"0i&\332\264\3019h\0\0346\271\251#m\316\202\374\275\357!\326\255\253="
+ #"\353\304\tx\344\221\226\217\363\25@="
+ #"\362\bQ\261\230j\207-dM\245\242\271\342\n;\237\255V\313f\r\\\362\330"
+ #"\354\17h\23\260\277vGa\341\226\231"
+ #"\300Y\263\306\324\247y\363\340\27\277\210"
+ #"\277\26\0\177\373\e\34>\334\3741\324"
+ #"\346\261+ z\3555\324\356\335()"
+ #"\23\353:j\220\243\310\232\210+\257\364W&ub*\332\371#\262E\2\204\306"
+ #"\304\366\327\301-\323\\\213\317J\356\271"
+ #"\a\346\316\255}\326\32\356\277\277\345m\21P\241\266:#*\225PO<a\201"
+ #"\247\230\t\247\305ah\270\352*Co"
+ #"\357\331\300Mj\277\246m\300%\352\227"
+ #"\225\224\253\327\312m=\242C\271\372j"
+ #"\370\356w\353\257\275\366\32\274\364R\323"
+ #"\333\3542\304Z\31\343\2450O=\205\32\32BiM\24"
+ #"Eu\240k=;\315\2349\232\r\e:\321\342f\220\225"
+) 500
+(
+ #"W\202\346\"\1F\202\0\177\355N\5"
+ #"\vw\234\t\326\342\356n\370\365\257\355Z\0_\266o\207J%\3636]-S"
+ #"\235\366V\217\352\320!\324\213/\22U"
+ #"}\342\306e`:\206|\3155\232\236"
+ #"\236\264\305\214i\266\31\32\301\372\311\255"
+ #"pj.\22\340t\265\360I\300\245j"
+ #"\2320-\276\343\16\330\270\261\376\332\261"
+ #"c\360\327\277f\336\342\354\256\178\271\246(z\352)T\251\224\351MhmW"
+ #"\216\316\236\255Y\2736\253\241\313j\340"
+ #"\322\362*\332m\245$\300\2601\214SS|\337L\214U+\346W8\t<\355"
+ #"sC\261g\315\202\237\377\334\236\273\270"
+ #"\1`\36}\24\216\34\311\254\252+\213"
+ #"\203\353C\216\275\2117\337D\355\337\217"
+ #"\22\242\1\262\377Y)\303\25W\30\272"
+ #"\272\222\320\374e\ai6W\247\234;\303\332\6\340\21c8Em\t_\245z"
+ #"{\21k&\306\250\375W\255b\23~"
+ #"\236\272\236\336\217\177\f\213\27\333s\27"
+ #"x\17C\304\366\355\251\367$\341\372\32"
+ #"\334\0\271TB=\367\234]\r\227\200\352\2470\324\f\fh.\271\244\35-N"
+ #"3!~jo\321\214m\344\214\341\30\265\206\304\1v\220G\253G\377\205H\276"
+ #"H\376yC\272\340\2\314\17\177X\313W\325^^x\1\363\312+\r\325s6"
+ #"\3275\264>\344\6\355u\351\205\27P\247N\241\22P\e\3356\315\246M\332\v"
+ #"e\266j\364\222`\235\201jo\301L\34[?(D\235\e\344\354\260\323b\267"
+ #"CCX\375\331d\f\302]K\215_\334}7L\237^\37\203\0\314\37\376`"
+ #"]4\357Y\356O\316\202\233l\350b"
+ #"\320\207\16\241\337z\253\251O\354\0\17"
+ #"\f\30V\257n\267As6\327\a\354\324\256\3\300\37R\363}]\205\212^\32"
+ #"\253\246qj\326\307\25-\253\323(\0\261z5\334"
+ #"qGc\b\364\335w\21O<Qg\22|\323T\246"
+) 500
+(
+ #"\21p&\\\227\376\361\17T\24\241\32l\257\362\2\3626]~\271&\237\317Z"
+ #"\6\226f\177\265\367\213\356\235\356\0\360"
+ #"a)9A\255\241s\25r\356\332h\25\260\323h\a:\244\361%\303?\376\364"
+ #"\247\230\276\276\372\241\35\300\374\361\217\230"
+ #"\261\261\330\341qo\213\323\\wL\203"
+ #"\233\265*9\332\265\vu\370p\323\0\2201\246j\213\r\253V\2455fI\250"
+ #"*q\36b\375\256\366\24251\340\323"
+ #"Z\363\241\224\261\375\363+\355\240\216T"
+ #"\217\3765\367\271L-\n\27\267\311\227"
+ #"]\6\267\334R\367\203F\b\364\321\243"
+ #"\250\207\36\"\244\246\261\16\256K\345D"
+ #"J\323\334\6-\36\eC\275\361F\34"
+ #"\306L\203\353\17-\255_o\310\347\333"
+ #"\361y}\r\256\0\355\257\245\213\3\232"
+ #"\306\30\366\n\301%\325\317\25\262\27C9\255K[\343\23\337#\4\342'?A"
+ #"tu\305\0212\2555\246\273\e\375\360\303\350#Gb\235HnH\340\373\271\255"
+ #"\216\r\240_~\31u\305\25\261\211\310"
+ #"\262\305\306\330\221\347\213.2\274\375v"
+ #"\26\\\177\245\276o\36Nw\16\30\340"
+ #"}c8\201\235\244\351\0\247\5\334\r"
+ #"\215k{\32\346\225o\334\210\330\262\5"
+ #"q\362$.\242\246\0013<\214\331\276\275\341\5Ln\257\221\266IAS\260."
+ #"}\370!\352\203\17\320\213\0265hn"
+ #"\332\260\322\272u\206={\254\331\310\326"
+ #"\\\337p\236\302\276Sg\0\370TU\213g\30C\205\332\242\356\244g`\260\263"
+ #"\177\222p]~)%\342\316;\355\310\304\350\250\35\2767\6\272\2720;v\240"
+ #"w\355\252\353\325'59\rtS\323\340\237+\205~\375u\364\242E\231\376p"
+ #"-^\254\351\3577\254X\241\331\275;\253D~\0w\f8\3366\334\6\300\0"
+ #"o\0\27c\207\364\222\246\301\301u?\357\366\200\250\203"
+ #"\v\210M\233\220\e7Z\355\365\304\204!<\360\200\255"
+) 500
+(
+ #"$\365\16\220\177L\3\227\4\236\266\345"
+ #"F\374B\357\332\205\332\274\31](d\216<\373Z|\351\245\206={\2549i"
+ #",\215\337\f\177L'\346!\25\360A!\330'\4+\265\216\315\204\3\234f\376"
+ #"s$VE\344r\210\357|\a\21Ev\2048\376\245\34\354\331\203y\341\205\206"
+ #"6;Y\235\210t\330Y@\ev\3549q\2\375\376\373\230\213/\306$F\237"
+ #"\223\220\303\320F\332\26/V\354\337\237\324\\\277a\263;[5\16\246u\bX"
+ #"i\315+A\300\22jf\300\327\336\344"
+ #"\213\324E\302\366^}5\342\342\213\355"
+ #"\324'\177nDw7\346\261\307\354\346"
+ #"Gd7)\311\246\245\31\314\264}\247\342\3637\337D\257Z\25\367\354|;\234"
+ #"\264\311B(V\257\326\348\2400&\371d\247\275'\261\366\2673I\35\26\335"
+ #"\247\24\373\244d\245\326\2619o\346z"
+ #"\27\34\334\356n\304\255\267\"\312e\253"
+ #"\301\16\260\224p\342\4\346\311'\e\\"
+ #"\372\3443\223\260\322^\332\264\353\376w"
+ #"\6\320\373\366\241\217\37GO\235\332\0"
+ #"\326\377l=\r\315\334\271\212\331\263\25CCip\213X\355\355<x\233\nX"
+ #"\3/\32\303\2\354N\n\255\0GTgd^w\35\342\202\v\20\325\355\bb"
+ #"\300]]\360\374\363\230\243G\e\302)"
+ #"\255\334\373V\300\323\376\30\3\250R\t"
+ #"\275g\17f\323&tu_\266\344\320"
+ #"\276\337\31\221R\261l\231\178\242\326"
+ #"\3459Q\5\334\271d\16\354\0374\2067\204\340rcj\35\a\32\315D\256z"
+ #"\f{{\311\337x#\262X\4\245jp\205\260\301\364\277\377\275\341\31YA\301"
+ #"V\16S\22\256\237|\233n\336y\a\275vmK\270.\315\237\257\350\356V\224"
+ #"J~D\344\0240H\247\266\267%`\200\235B\260\320\30\6R\0'"
+ #"\e\236\334\225W\22\315\236Mn|\274n\257\35\221\317c\336y\a\366"
+) 500
+(
+ #"\354\211\237\341\216~\27;\t\331\375F\226\371H\206`\322B4zp\02034"
+ #"\204\2313\247)\\7\324\324\335\255\230"
+ #"7O\261\177\277\203;\212\335\231\2523"
+ #"\317\301\227\246\263\210G\265\346\205\\."
+ #"\36:\362\343\1~\214\240\334\327G\371\232k(\216\215Q,\26)\225J\204a"
+ #"h\367=\213\"\302\35;\b\225\252\213"
+ #"\210\245\216\257Q\337\241H\372\301i\336"
+ #"D\232\231\210\377\260(B\357\335\eO\24L\323Z\a7\212\"\242H1o\236"
+ #"\263\273\343X\323pv[\177\265\234\246"
+ #"\375O\245xU\312\272\20\246\e^r\237\303\r\e(\317\234Iyl\214R\251"
+ #"\24\247\212R\204\207\16\21\276\362J\3\320$\314,\310ip\323LD\362Z\f"
+ #"y\357^t\261\330\0004\rr\245\22"
+ #"\322\327W\246\267\267\204\365\32\216P?"
+ #"\236\323\271\264\236\\e\f;\261\v\302W$*\221\3to/z\303\6\202b"
+ #"\21\5\361\342@Y\235\320-w\356D\216\216\3061\fh\36\240O6|Y\346"
+ #"#\353\330\220\377\370q\324\340 \252\277"
+ #"\37\355\305%|\315UJ\21\206!\245R\211(*2y\3620\343\343\23\263\v"
+ #"U[\353q\"cx\26\353\27\317\247\36r\260f\rz\3324T\251T\aW"
+ #"J\211\254T\220\325\355a\222\35\26h"
+ #"\16\270\35\350iP\el\266\326\250\3"
+ #"\a\320s\346\304\200\223\232\353\340\26\213"
+ #"E\206\207\207\211\242A\316\324kHJ"
+ #"\333\v\236F\201\377\6\276\202\335\263G"
+ #"\3\272\273\233\374\245\227\242\313eDu"
+ #"\363\2428\25\n\210}\373\220\207\16\305"
+ #"q\214d\360\250\325\230B\26\364$\334\264^a\235\3718p\0\275fM\34\210"
+ #"\367\223\17\367\324\251S\f\r\rq\362d\366V\n\235JG\333\357|\f<#"
+ #"%[\264f\26\240/\274\20=e\n\271R\251\272"
+ #"\275@u\2373)\221B _\177\35\241u\313e\b"
+) 500
+(
+ #"\220\256\315\355hr\263\360x\234N\234"
+ #"@\35;\206\2321\303\216xxp\313"
+ #"\345r\35\334\303\207\17\243\275a\254\263"
+ #"\225\216\3677:\2565O\t\301\346\\"
+ #"\216\376\213.B\25\213\344\204 \227\313"
+ #"\305[\f\310 @\214\214 \337{\257%\330\344\347v4:\315g\316\362\243\25"
+ #"X\323p\360 j\3324T\24\21E\21\225J\205J\245B\251Tbxx\230"
+ #"\243G\2172888\241p\341\f7\220\372\330\30\236\221\222+\207\207Y0u"
+ #"*Q.GNkr\371<\271|\36\31\4\310}\373\20\247O\327\201\365\355p"
+ #"\226\230\224c\226\6\247\331\341,mV"
+ #"\a\17\242\226/'\254\202-\227\313\24K%FN\237\346\310\341\303\f\35?>"
+ #"\341p\241\276\315\351X\272\273\273Y\273"
+ #"v-+\346\317'\37E\4\245\22\271\321Qr\243\243\4\a\16 N\236\314\236"
+ #"\335N#\350\244\366\372\327:1\23\251"
+ #"]\354|\236p\313\26*\205\2\245\361"
+ #"q\306\306\307\31\376\370c\216\f\16r"
+ #"rx\370\314!\264\220\263\2\f6\336"
+ #"\260\274P\340\222J\205\311\306\20\320z"
+ #"\243C\377\307}i\0057\313.\247v\223i\f\227W\226.\245\270`\1##"
+ #"#\234\32\32\342\350\320\20\243M\346\304M\204\2345`'3\2005X7\316\355"
+ #"\302\232\265\17_Z!H\24\244\35\310"
+ #"iv\330\a\233\234\320X\4N\367\366"
+ #"\362\257 \340\330\310\310\304\314\342o!"
+ #"\23\6\30,\310\363\201\213\260\353 \375"
+ #"\rY\342\215\361i\324\3464\260\376y"
+ #"\26\3304{\254\251\357\35\272\250\3028\266ov\234s\261\211m\266L(`'"
+ #"\275\300\5B\260\330\230x\303\346\206a%\322\375b\22\347\255:#\311ASg"
+ #"\22|\260\247\261Q\205\223\347\242\262"
+ #"-\344\234\0v\322\v,\22\202\371\325\r\226\234\351H"
+ #"&\177\354/)\315\32\270d\360\307\245\nvx\3624\326"
+) 188
+(
+ #"w\37\256\346\3714\344\234\2v\222\307"
+ #"n\3576\200\335}\314\355G\2216\2432M\262\\3gg}s0\216\5z"
+ #"\n\333\373\374\24456)\237\b`_"
+ #"z\260\r\342\f\254\235\356\301\216\353\371"
+ #"\235\20\2238\317r\301\\\3035\16\214\n\301(0Z]o\362Y\221O\34\260"
+ #"/\201\20\364\30C/\325]\256\204\240`L\274!H@\343p~\b\224\205\240"
+ #"dL<\335\252\302\247\257\251Y\362\251"
+ #"\2\316\22Au\352\225\277\205\214\20\250"
+ #"\2545w\237a\371L\2\376\377$\23"
+ #"\265\261\337\347\222!\237\3>\307\3629\340s,\237\3>\307\362"
+ #"\177z\314\306\205O<{Y\0\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+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 3 #"uri"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"image->uri"
+0 0 4 3 1 #" "
+0 0 14 3 8 #"an-image"
+0 0 22 3 2 #"))"
+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 4 #"self"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 19 #"get-module-bytecode"
+0 0 4 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"build-path"
+0 0 4 3 1 #" "
+0 0 19 3 10 #"\"test.rkt\""
+0 0 22 3 3 #")))"
+0           0