#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 |# 20 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 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 1 6 #"wxloc\0" 0 0 58 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 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 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 90 -1 90 -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 90 -1 90 -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 92 -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 255 0 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0" 0 -1 1 #"\0" 1.0 0 92 -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 255 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 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 0 1 #"\0" 0 75 12 #"Courier New\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 -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 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 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 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 -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 4 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 -1 -1 0 875 0 27 3 17 #"#lang scheme/base" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 14 3 7 #"require" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 14 3 7 #"net/url" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 14 3 13 #"net/uri-codec" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 14 3 11 #"scheme/port" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 14 3 15 #"scheme/contract" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 14 3 13 #"scheme/string" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 14 3 7 #"provide" 0 0 4 3 1 #" " 0 0 14 3 14 #"make-post-data" 0 0 4 29 1 #"\n" 0 0 4 3 9 #" " 0 0 14 3 9 #"send-post" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 14 3 16 #"provide/contract" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 23 3 1 #"[" 0 0 14 3 11 #"json-escape" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"->" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 23 3 1 #"[" 0 0 14 3 11 #"json-encode" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"->" 0 0 4 3 1 #" " 0 0 14 3 5 #"any/c" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 23 3 1 #"[" 0 0 14 3 10 #"comet-send" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"->" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 23 3 1 #"[" 0 0 14 3 18 #"comet-send-livemsg" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"->" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"or/c" 0 0 4 3 1 #" " 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 7 #"symbol?" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"any/c" 0 0 4 3 1 #" " 0 0 14 3 6 #"string" 0 0 23 3 3 #")])" 0 0 14 29 1 #"\n" 0 0 4 29 1 #"\n" 0 7 997 4 0 0 0 165 0 2 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 9 #"send-post" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 2 3 1 #" " 0 0 14 3 4 #"data" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 10 #"let-values" 0 0 2 3 1 #" " 0 0 23 3 3 #"([(" 0 0 14 3 2 #"in" 0 0 2 3 1 #" " 0 0 14 3 3 #"out" 0 0 23 3 1 #")" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"tcp-connect" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"url-host" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 1 #")" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"url-port" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 4 #"))])" 0 0 2 29 1 #"\n" 0 0 2 3 4 #" " 0 0 23 3 1 #"(" 0 0 16 3 12 #"parameterize" 0 0 2 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 19 #"current-output-port" 0 0 2 3 1 #" " 0 0 14 3 3 #"out" 0 0 23 3 1 #"]" 0 0 2 29 1 #"\n" 0 0 2 3 19 #" " 0 0 23 3 1 #"[" 0 0 14 3 18 #"current-input-port" 0 0 2 3 1 #" " 0 0 14 3 2 #"in" 0 0 23 3 2 #"])" 0 0 2 29 1 #"\n" 0 0 2 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 2 3 1 #" " 0 0 20 3 22 #"\"POST ~a HTTP/1.1\\r\\n\"" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"url-path" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 2 #"))" 0 0 2 29 1 #"\n" 0 0 2 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 2 3 1 #" " 0 0 20 3 16 #"\"Host: ~a~a\\r\\n\"" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"url-host" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 14 #" " 0 0 23 3 1 #"(" 0 0 16 3 3 #"let" 0 0 2 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 1 #"p" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"url-port" 0 0 2 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 3 #")])" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"if" 0 0 2 3 1 #" " 0 0 14 3 1 #"p" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"format" 0 0 2 3 1 #" " 0 0 20 3 5 #"\":~a\"" 0 0 2 3 1 #" " 0 0 14 3 1 #"p" 0 0 23 3 1 #")" 0 0 2 3 1 #" " 0 0 20 3 2 #"\"\"" 0 0 23 3 3 #")))" 0 0 2 29 1 #"\n" 0 0 2 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 2 3 1 #" " 0 0 20 3 30 #"\"Content-Length: ~a\\r\\n\\r\\n~a\"" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"bytes-length" 0 0 2 3 1 #" " 0 0 14 3 4 #"data" 0 0 23 3 1 #")" 0 0 2 3 1 #" " 0 0 14 3 4 #"data" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"flush-output" 0 0 2 3 1 #" " 0 0 14 3 3 #"out" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 6 #" " 0 0 23 3 1 #"(" 0 0 16 3 6 #"begin0" 0 0 2 29 1 #"\n" 0 0 2 3 8 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"get-http-result" 0 0 2 3 1 #" " 0 0 14 3 2 #"in" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 8 #" " 0 0 23 3 1 #"(" 0 0 14 3 16 #"close-input-port" 0 0 2 3 1 #" " 0 0 14 3 2 #"in" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 8 #" " 0 0 23 3 1 #"(" 0 0 14 3 17 #"close-output-port" 0 0 2 3 1 #" " 0 0 14 3 3 #"out" 0 0 23 3 5 #")))))" 0 0 2 29 1 #"\n" 0 0 2 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 2 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"get-http-result" 0 0 2 3 1 #" " 0 0 14 3 2 #"in" 0 0 23 3 1 #")" 0 0 2 29 1 #"\n" 0 0 2 3 2 #" " 0 0 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"->string" 0 0 4 3 1 #" " 0 0 14 3 1 #"x" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"format" 0 0 4 3 1 #" " 0 0 20 3 4 #"\"~a\"" 0 0 4 3 1 #" " 0 0 14 3 1 #"x" 0 0 23 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 14 #"make-post-data" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"params->alist" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"if" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 5 #"null?" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 8 #" " 0 0 21 3 1 #"'" 0 0 23 3 2 #"()" 0 0 4 29 1 #"\n" 0 0 4 3 8 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"car" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 8 #"->string" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"cadr" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 14 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"params->alist" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"cddr" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 3 #"let" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 5 #"alist" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"params->alist" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 14 3 19 #"string->bytes/utf-8" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 23 3 1 #"(" 0 0 14 3 22 #"alist->form-urlencoded" 0 0 4 3 1 #" " 0 0 14 3 5 #"alist" 0 0 23 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 9 #"send-post" 0 0 4 3 1 #" " 0 0 14 3 3 #"url" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 3 #"let" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 1 #"p" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 14 #"post-pure-port" 0 0 4 29 1 #"\n" 0 0 4 3 12 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"string->url" 0 0 4 3 1 #" " 0 0 14 3 3 #"url" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 12 #" " 0 0 23 3 1 #"(" 0 0 14 3 5 #"apply" 0 0 4 3 1 #" " 0 0 14 3 14 #"make-post-data" 0 0 4 3 1 #" " 0 0 14 3 6 #"params" 0 0 23 3 4 #"))])" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 16 3 6 #"begin0" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"port->string" 0 0 4 3 1 #" " 0 0 14 3 1 #"p" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 16 #"close-input-port" 0 0 4 3 1 #" " 0 0 14 3 1 #"p" 0 0 23 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 68 #";;; Takes a list of chars and strings. Returns a list of chars only." 0 0 4 29 1 #"\n" 0 0 18 3 3 #"; >" 0 0 18 3 1 #" " 0 0 18 3 1 #"(" 0 0 18 3 15 #"list->char-list" 0 0 18 3 1 #" " 0 0 18 3 1 #"(" 0 0 18 3 4 #"list" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\a" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\b" 0 0 18 3 1 #" " 0 0 18 3 6 #"\"cdef\"" 0 0 18 3 6 #" #\\g))" 0 0 4 29 1 #"\n" 0 0 18 3 3 #"; (" 0 0 18 3 3 #"#\\a" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\b" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\c" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\d" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\e" 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\f" 0 0 18 3 5 #" #\\g)" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"list->char-list" 0 0 4 3 1 #" " 0 0 14 3 3 #"lst" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"if" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 5 #"null?" 0 0 4 3 1 #" " 0 0 14 3 3 #"lst" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 21 3 1 #"'" 0 0 23 3 2 #"()" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 16 3 3 #"let" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 2 #"ch" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"car" 0 0 4 3 1 #" " 0 0 14 3 3 #"lst" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 8 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"if" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 2 #"ch" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 12 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"append" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"string->list" 0 0 4 3 1 #" " 0 0 14 3 2 #"ch" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"list->char-list" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"cdr" 0 0 4 3 1 #" " 0 0 14 3 3 #"lst" 0 0 23 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 12 #" " 0 0 23 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 14 3 2 #"ch" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"list->char-list" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"cdr" 0 0 4 3 1 #" " 0 0 14 3 3 #"lst" 0 0 23 3 7 #")))))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 1 #";" 0 0 18 3 1 #">" 0 0 18 3 1 #" " 0 0 18 3 1 #"(" 0 0 18 3 12 #"string-trans" 0 0 18 3 1 #" " 0 0 18 3 14 #"\"Hello there!\"" 0 0 18 3 1 #" " 0 0 18 3 7 #"#hash((" 0 0 18 3 3 #"#\\H" 0 0 18 3 1 #" " 0 0 18 3 1 #"." 0 0 18 3 1 #" " 0 0 18 3 3 #"#\\j" 0 0 18 3 1 #")" 0 0 18 3 1 #" " 0 0 18 3 1 #"(" 0 0 18 3 3 #"#\\t" 0 0 18 3 1 #" " 0 0 18 3 1 #"." 0 0 18 3 10 #" \"what\")))" 0 0 4 29 1 #"\n" 0 0 18 3 18 #";\"jello whathere!\"" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"string-trans" 0 0 4 3 1 #" " 0 0 14 3 3 #"str" 0 0 4 3 1 #" " 0 0 14 3 4 #"dict" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"list->string" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 23 3 1 #"(" 0 0 14 3 15 #"list->char-list" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 16 3 8 #"for/list" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 2 #"ch" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 9 #"in-string" 0 0 4 3 1 #" " 0 0 14 3 3 #"str" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"or" 0 0 4 29 1 #"\n" 0 0 4 3 7 #" " 0 0 23 3 1 #"(" 0 0 16 3 9 #"for/first" 0 0 4 3 1 #" " 0 0 23 3 3 #"([(" 0 0 14 3 3 #"src" 0 0 4 3 1 #" " 0 0 14 3 3 #"dst" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 7 #"in-hash" 0 0 4 3 1 #" " 0 0 14 3 4 #"dict" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 19 #" " 0 0 23 3 6 #"#:when" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"char=?" 0 0 4 3 1 #" " 0 0 14 3 3 #"src" 0 0 4 3 1 #" " 0 0 14 3 2 #"ch" 0 0 23 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 9 #" " 0 0 14 3 3 #"dst" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 7 #" " 0 0 14 3 2 #"ch" 0 0 23 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 80 ( #";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" #";;;;;;;;;;;;" ) 0 0 4 29 1 #"\n" 0 0 18 3 18 #";;; JSON functions" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-escape" 0 0 4 3 1 #" " 0 0 14 3 3 #"str" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 14 3 12 #"string-trans" 0 0 4 3 1 #" " 0 0 14 3 3 #"str" 0 0 4 29 1 #"\n" 0 0 4 3 16 #" " 0 0 23 3 7 #"#hash((" 0 0 21 3 3 #"#\\\"" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 6 #"\"\\\\\\\"\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 3 #"#\\\\" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 6 #"\"\\\\\\\\\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 11 #"#\\backspace" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\b\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 6 #"#\\page" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\f\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 9 #"#\\newline" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\n\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 8 #"#\\return" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\r\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"(" 0 0 21 3 5 #"#\\tab" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\t\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 22 #" " 0 0 23 3 1 #"{" 0 0 21 3 3 #"#\\/" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\\/\"" 0 0 23 3 4 #"})))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 59 #";;; A very simple json encoding. Does not handle all cases." 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 17 #"json-encode-alist" 0 0 4 3 1 #" " 0 0 14 3 5 #"alist" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"ensure-string" 0 0 4 3 1 #" " 0 0 14 3 1 #"s" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"if" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 7 #"symbol?" 0 0 4 3 1 #" " 0 0 14 3 1 #"s" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 14 #"symbol->string" 0 0 4 3 1 #" " 0 0 14 3 1 #"s" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 1 #"s" 0 0 23 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"string-append" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 20 3 3 #"\"{\"" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"string-join" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 16 3 8 #"for/list" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 4 #"item" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 7 #"in-list" 0 0 4 3 1 #" " 0 0 14 3 5 #"alist" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"string-append" 0 0 4 3 1 #" " 0 0 20 3 4 #"\"\\\"\"" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-escape" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"ensure-string" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"car" 0 0 4 3 1 #" " 0 0 14 3 4 #"item" 0 0 23 3 3 #")))" 0 0 4 3 1 #" " 0 0 20 3 5 #"\"\\\":\"" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-encode" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"cdr" 0 0 4 3 1 #" " 0 0 14 3 4 #"item" 0 0 23 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 20 3 3 #"\",\"" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 20 3 3 #"\"}\"" 0 0 23 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 77 ( #";;; A very simple json encoding. Does not handle all cases. Assumes " #"lists are" ) 0 0 4 29 1 #"\n" 0 0 4 3 0 #"" 0 0 18 3 11 #";;; alists." 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-encode" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 2 #"[(" 0 0 14 3 7 #"number?" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 14 #"number->string" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 2 #"[(" 0 0 14 3 7 #"symbol?" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-encode" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 14 #"symbol->string" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 2 #"[(" 0 0 14 3 7 #"string?" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"string-append" 0 0 4 3 1 #" " 0 0 20 3 4 #"\"\\\"\"" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-escape" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 4 #"\"\\\"\"" 0 0 23 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 2 #"[(" 0 0 14 3 5 #"pair?" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 17 #"json-encode-alist" 0 0 4 3 1 #" " 0 0 14 3 3 #"val" 0 0 23 3 4 #")]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 18 3 80 ( #";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" #";;;;;;;;;;;;" ) 0 0 4 29 1 #"\n" 0 0 18 3 19 #";;; Comet functions" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 10 #"COMET-PATH" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"or" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 6 #"getenv" 0 0 4 3 1 #" " 0 0 20 3 19 #"\"COMET_PYTHON_PATH\"" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 30 #"\"http://localhost:8421/comet/\"" 0 0 23 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 10 #"comet-send" 0 0 4 3 1 #" " 0 0 14 3 4 #"dest" 0 0 4 3 1 #" " 0 0 14 3 3 #"msg" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 16 3 3 #"let" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 3 #"url" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 13 #"string-append" 0 0 4 3 1 #" " 0 0 14 3 10 #"COMET-PATH" 0 0 4 3 1 #" " 0 0 14 3 4 #"dest" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 23 3 1 #"(" 0 0 16 3 13 #"with-handlers" 0 0 4 3 1 #" " 0 0 23 3 2 #"([" 0 0 14 3 9 #"exn:fail?" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 16 3 2 #"\316\273" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 2 #"ex" 0 0 23 3 1 #")" 0 0 4 3 1 #" " 0 0 21 3 2 #"#f" 0 0 23 3 3 #")])" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 23 3 1 #"(" 0 0 14 3 9 #"send-post" 0 0 4 3 1 #" " 0 0 14 3 3 #"url" 0 0 4 3 1 #" " 0 0 21 3 1 #"'" 0 0 14 3 3 #"msg" 0 0 4 3 1 #" " 0 0 14 3 3 #"msg" 0 0 23 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 23 3 1 #"(" 0 0 16 3 6 #"define" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 18 #"comet-send-livemsg" 0 0 4 3 1 #" " 0 0 14 3 4 #"dest" 0 0 4 3 1 #" " 0 0 14 3 10 #"event-name" 0 0 4 3 1 #" " 0 0 14 3 3 #"msg" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 23 3 1 #"(" 0 0 14 3 10 #"comet-send" 0 0 4 3 1 #" " 0 0 14 3 4 #"dest" 0 0 4 3 1 #" " 0 0 23 3 1 #"(" 0 0 14 3 11 #"json-encode" 0 0 4 3 1 #" " 0 0 21 3 1 #"`" 0 0 23 3 2 #"((" 0 0 14 3 9 #"eventName" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 27 3 1 #"," 0 0 14 3 10 #"event-name" 0 0 23 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 34 #" " 0 0 23 3 1 #"(" 0 0 14 3 3 #"msg" 0 0 4 3 1 #" " 0 0 27 3 1 #"." 0 0 4 3 1 #" " 0 0 27 3 1 #"," 0 0 14 3 3 #"msg" 0 0 23 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0