ÿØÿà JFIF    ÿÛ „ ( %"1!%)+...383,7(-.+  -+++--++++---+-+-----+---------------+---+-++7-----ÿÀ  ß â" ÿÄ    ÿÄ H   !1AQaq"‘¡2B±ÁÑð#R“ÒTbr‚²á3csƒ’ÂñDS¢³$CÿÄ   ÿÄ %  !1AQa"23‘ÿÚ   ? ôÿ ¨pŸªáÿ —åYõõ\?àÒü©ŠÄï¨pŸªáÿ —åYõõ\?àÓü©ŠÄá 0Ÿªáÿ Ÿå[úƒ ú®ði~TÁbqÐ8OÕpÿ ƒOò¤Oè`–RÂáœá™êi€ßÉ< FtŸI“öÌ8úDf´°å}“¾œ6  öFá°y¥jñÇh†ˆ¢ã/ÃÐ:ªcÈ "Y¡ðÑl>ÿ ”ÏËte:qž\oäŠe÷󲍷˜HT4&ÿ ÓÐü6ö®¿øþßèô Ÿ•7Ñi’•j|“ñì>b…þS?*Óôÿ ÓÐü*h¥£ír¶ü UãS炟[AÐaè[ûª•õ&õj?†Éö+EzP—WeÒírJFt ‘BŒ†Ï‡%#tE Øz¥OÛ«!1›üä±Í™%ºÍãö]°î(–:@<‹ŒÊö×òÆt¦ãº+‡¦%ÌÁ²h´OƒJŒtMÜ>ÀÜÊw3Y´•牋4ǍýʏTì>œú=Íwhyë,¾Ôò×õ¿ßÊa»«þˆѪQ|%6ž™A õ%:øj<>É—ÿ Å_ˆCbõ¥š±ý¯Ýƒï…¶|RëócÍf溪“t.СøTÿ *Ä¿-{†çàczůŽ_–^XþŒ±miB[X±d 1,é”zEù»& î9gœf™9Ð'.;—™i}!ôšåîqêÛ٤ёý£½ÆA–àôe"A$˝Úsäÿ ÷Û #°xŸëí(l »ý3—¥5m! rt`†0~'j2(]S¦¦kv,ÚÇ l¦øJA£Šƒ J3E8ÙiŽ:cÉžúeZ°€¯\®kÖ(79«Ž:¯X”¾³Š&¡*….‰Ž(ÜíŸ2¥ª‡×Hi²TF¤ò[¨íÈRëÉ䢍mgÑ.Ÿ<öäS0í„ǹÁU´f#Vß;Õ–…P@3ío<ä-±»Ž.L|kªÀê›fÂ6@»eu‚|ÓaÞÆŸ…¨ááå>åŠ?cKü6ùTÍÆ”†sĤÚ;H2RÚ†õ\Ö·Ÿn'¾ñ#ºI¤Å´%çÁ­‚â7›‹qT3Iï¨ÖÚ5I7Ë!ÅOóŸ¶øÝñØôת¦$Tcö‘[«Ö³šÒ';Aþ ¸èíg A2Z"i¸vdÄ÷.iõ®§)¿]¤À†–‡É&ä{V¶iŽ”.Ó×Õÿ û?h¬Mt–íª[ÿ Ñÿ ÌV(í}=ibÔ¡›¥¢±bLô¥‡piη_Z<‡z§èŒ)iÖwiÇ 2hÙ3·=’d÷8éŽ1¦¸c¤µ€7›7Ø ð\á)} ¹fËí›pAÃL%âc2 í§æQz¿;T8sæ°qø)QFMð‰XŒÂ±N¢aF¨…8¯!U  Z©RÊÖPVÄÀÍin™Ì-GˆªÅËŠ›•zË}º±ŽÍFò¹}Uw×#ä5B¤{î}Ð<ÙD é©¤&‡ïDbàÁôMÁ.ÿØÿà JFIF    ÿÛ „ ( %"1!%)+...383,7(-.+  -+++--++++---+-+-----+---------------+---+-++7-----ÿÀ  ß â" ÿÄ    ÿÄ H   !1AQaq"‘¡2B±ÁÑð#R“ÒTbr‚²á3csƒ’ÂñDS¢³$CÿÄ   ÿÄ %  !1AQa"23‘ÿÚ   ? ôÿ ¨pŸªáÿ —åYõõ\?àÒü©ŠÄï¨pŸªáÿ —åYõõ\?àÓü©ŠÄá 0Ÿªáÿ Ÿå[úƒ ú®ði~TÁbqÐ8OÕpÿ ƒOò¤Oè`–RÂáœá™êi€ßÉ< FtŸI“öÌ8úDf´°å}“¾œ6  öFá°y¥jñÇh†ˆ¢ã/ÃÐ:ªcÈ "Y¡ðÑl>ÿ ”ÏËte:qž\oäŠe÷󲍷˜HT4&ÿ ÓÐü6ö®¿øþßèô Ÿ•7Ñi’•j|“ñì>b…þS?*Óôÿ ÓÐü*h¥£ír¶ü UãS炟[AÐaè[ûª•õ&õj?†Éö+EzP—WeÒírJFt ‘BŒ†Ï‡%#tE Øz¥OÛ«!1›üä±Í™%ºÍãö]°î(–:@<‹ŒÊö×òÆt¦ãº+‡¦%ÌÁ²h´OƒJŒtMÜ>ÀÜÊw3Y´•牋4ǍýʏTì>œú=Íwhyë,¾Ôò×õ¿ßÊa»«þˆѪQ|%6ž™A õ%:øj<>É—ÿ Å_ˆCbõ¥š±ý¯Ýƒï…¶|RëócÍf溪“t.СøTÿ *Ä¿-{†çàczůŽ_–^XþŒ±miB[X±d 1,é”zEù»& î9gœf™9Ð'.;—™i}!ôšåîqêÛ٤ёý£½ÆA–àôe"A$˝Úsäÿ ÷Û #°xŸëí(l »ý3—¥5m! rt`†0~'j2(]S¦¦kv,ÚÇ l¦øJA£Šƒ J3E8ÙiŽ:cÉžúeZ°€¯\®kÖ(79«Ž:¯X”¾³Š&¡*….‰Ž(ÜíŸ2¥ª‡×Hi²TF¤ò[¨íÈRëÉ䢍mgÑ.Ÿ<öäS0í„ǹÁU´f#Vß;Õ–…P@3ío<ä-±»Ž.L|kªÀê›fÂ6@»eu‚|ÓaÞÆŸ…¨ááå>åŠ?cKü6ùTÍÆ”†sĤÚ;H2RÚ†õ\Ö·Ÿn'¾ñ#ºI¤Å´%çÁ­‚â7›‹qT3Iï¨ÖÚ5I7Ë!ÅOóŸ¶øÝñØôת¦$Tcö‘[«Ö³šÒ';Aþ ¸èíg A2Z"i¸vdÄ÷.iõ®§)¿]¤À†–‡É&ä{V¶iŽ”.Ó×Õÿ û?h¬Mt–íª[ÿ Ñÿ ÌV(í}=ibÔ¡›¥¢±bLô¥‡piη_Z<‡z§èŒ)iÖwiÇ 2hÙ3·=’d÷8éŽ1¦¸c¤µ€7›7Ø ð\á)} ¹fËí›pAÃL%âc2 í§æQz¿;T8sæ°qø)QFMð‰XŒÂ±N¢aF¨…8¯!U  Z©RÊÖPVÄÀÍin™Ì-GˆªÅËŠ›•zË}º±ŽÍFò¹}Uw×#ä5B¤{î}Ð<ÙD é©¤&‡ïDbàÁôMÁ.GOOF----LE-8-2.0?>]<4h(] gguile  gdefine-module*   gsrfi gsrfi-111  gfilenameS fsrfi/srfi-111.scm gimportsS gsrfi-9     ggnu     gexportsS gbox gbox? gunbox gset-box!  gset-current-module   gcond-expand-provide gcurrent-module  g g%box-procedure !gmake-syntax-transformer "! #! $gmacro %g $sc-dispatch &% '% (g_ )gany *() +g syntax-object ,glambda -gm-a33a589db48-4 .gtop /-. 0gribcage 1gt-a33a589db48-3 21 3/ 4fl-a33a589db48-9 54 60235 70 8gx 98 :fl-a33a589db48-6 ;: <093; =gshift >g proc-name ?gargs @>? A. BAA Cfl-1e8ba8b5a-2ba Dfl-1e8ba8b5a-2bb ECD F0@BE Ggkey Hgvalue Igname Jgformals Kgbody LGHIJK MAAAAA Nfl-1e8ba8b5a-2ad Ofl-1e8ba8b5a-2ae Pfl-1e8ba8b5a-2af Qfl-1e8ba8b5a-2b0 Rfl-1e8ba8b5a-2b1 SNOPQR T0LMS Ugmake-procedure-name VU WA Xfl-1e8ba8b5a-29d YX Z0VWY [A \fl-1e8ba8b5a-29c ]\ ^09[] _/67<=7777FTZ^  `ghygiene a`  b+,_a cA67< d` e+Hcd fe gg make-struct hgm-a33a589db48-1 ih. jgt-1e8ba8b5a-38d kgt-1e8ba8b5a-38c lgt-1e8ba8b5a-38b mjkl ngm-1e8ba8b5a-38e on. pooo qfl-1e8ba8b5a-392 rfl-1e8ba8b5a-393 sfl-1e8ba8b5a-394 tqrs u0mpt vg ctor-args wv xfl-1e8ba8b5a-37a yx z0w[y {gctor |gfield }{| ~fl-1e8ba8b5a-376 fl-1e8ba8b5a-377 ~ 0}B gform g type-name gconstructor-spec g field-names  AAAA fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  0 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  AAAAAAAA fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  0 fl-1e8ba8b5a-334  09[ i67<=7u777z7 +ga +cd + a e bf geach-any ( gsyntax-violation     fWrong number of arguments g identifier?     A7< + d   f-source expression failed to match any pattern grecord-type-vtable     gpw gdefault-record-printer     H gset-struct-vtable-name!     gvtable-offset-user     g%box?-procedure gm-a33a589db48-11 . gt-a33a589db48-10   fl-a33a589db48-16  0 fl-a33a589db48-13  09 7=7777FTZ^  +,a gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478 gt-1e8ba8b5a-479 gt-1e8ba8b5a-47a gt-1e8ba8b5a-47d gt-1e8ba8b5a-47c gt-1e8ba8b5a-47b  gm-1e8ba8b5a-47f .  fl-1e8ba8b5a-483 fl-1e8ba8b5a-484 fl-1e8ba8b5a-485 fl-1e8ba8b5a-486 fl-1e8ba8b5a-487 fl-1e8ba8b5a-488 fl-1e8ba8b5a-489  0 g copier-id  fl-1e8ba8b5a-476  0[ g ctor-name  fl-1e8ba8b5a-46e  0[  fl-1e8ba8b5a-46c  0[ glayout  fl-1e8ba8b5a-46a  0[ g immutable?  fl-1e8ba8b5a-468  0[ g field-count  fl-1e8ba8b5a-466  0[ g getter-ids   fl-1e8ba8b5a-463     0[   g field-ids    fl-1e8ba8b5a-460  0 [ gpredicate-name g field-spec  AAAAAA fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  0 i7=77777777777 7 +a   gand !+ a "gstruct? #+"a $# %geq? &+%a 'g struct-vtable (+'a )( *A7 ++*d ,&)+ -!$, .- /A7 0+/d 1gthrow-bad-struct 2 1 3 1 4g%unbox-procedure 5gfree-id 6g %%on-error 7gm-a33a589db48-1d 87. 98 :fl-a33a589db48-1f ;: <099; =87<=7777FTZ^  >+6=a ?5> @?) Ag%%type Bgt-1e8ba8b5a-3a5 Cgt-1e8ba8b5a-3a6 Dgt-1e8ba8b5a-3a7 Egt-1e8ba8b5a-3a8 Fgt-1e8ba8b5a-3a9 Ggt-1e8ba8b5a-3aa Hgt-1e8ba8b5a-3ab IBCDEFGH Jgm-1e8ba8b5a-3ac KJ. LKKKKKKK Mfl-1e8ba8b5a-3b0 Nfl-1e8ba8b5a-3b1 Ofl-1e8ba8b5a-3b2 Pfl-1e8ba8b5a-3b3 Qfl-1e8ba8b5a-3b4 Rfl-1e8ba8b5a-3b5 Sfl-1e8ba8b5a-3b6 TMNOPQRS U0ILT Vggetter Wgindex XVW Yfl-1e8ba8b5a-3a3 Zfl-1e8ba8b5a-3a4 [YZ \0XB[ ] ^AAA _fl-1e8ba8b5a-39e `fl-1e8ba8b5a-39f afl-1e8ba8b5a-3a0 b_`a c0]^b di7<=7U777\7c e+Ada f5e g(@f) hgck igerr jgs kij l88 mfl-a33a589db48-22 nfl-a33a589db48-23 omn p0klo q8p7<=7777FTZ^  r+hqa sgquote t+sqa uAp7< v+ud wtv xw yg%%index z+yda {5z |(@{) }fl-a33a589db48-27 ~fl-a33a589db48-28 }~ 0kl 87<=7777FTZ^  +ha +sa 7< + d   g%%copier +da 5 (@) fl-a33a589db48-2c fl-a33a589db48-2d  0kl 87<=7777FTZ^  +ha +sa g%%-set-fields A7< +d   gt-a33a589db48-1c  fl-a33a589db48-31  09 87<=7777FTZ^  +,a i7<=7U777\7c +ja  gif +a +%a +'a  A7< +d  g struct-ref +a 7< + d  +1a +sa +d     A7< +4d geach ))  ) ) ) g %%set-fields gdummy gcheck? gexpr jV gm-a33a589db48-38 . iiii fl-a33a589db48-3d fl-a33a589db48-3e fl-a33a589db48-3f fl-a33a589db48-40 fl-a33a589db48-41  0  fl-a33a589db48-3a  09 gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 .  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  0 fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  0]^ i7=7777  +a A7 +d +d  gmap   glist g%set-box!-procedure ()) gm-a33a589db48-4c . gt-a33a589db48-4a gt-a33a589db48-4b   fl-a33a589db48-51 fl-a33a589db48-52  0  fl-a33a589db48-4e  09 7=7777FTZ^  +,a gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8 .  fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed  0 gsetter  IV  fl-1e8ba8b5a-3e0  fl-1e8ba8b5a-3e1  fl-1e8ba8b5a-3e2      0 ^  W fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  0B g field-specs  fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4  0B i7=777 +ja gval +a  +a  +%a !+'a "! #A7 $+#d % "$ &g struct-set! '+&a (7 )+ (d *') ++1a ,+sa -+#d .,- /+. 0%*/ 10 2A7 3+2d 4gset-record-type-printer! 5gdisplay 6f#string 8gobject-address 9f value:  :gwrite ;f>C5hh]4   54>"G4i4i5>"Ghr]Cjgvalue  gfilenamefsrfi/srfi-111.scm    gnameg%box-procedureC R4#$'*h7]C/gt-a33a589db48-3    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R4>"G Ɩ iRhq]$CCigobj  gfilenamefsrfi/srfi-111.scm     gnameg%box?-procedureCR4#$'*.h8]C0gt-a33a589db48-10    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      C0h]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R3hp]& C6hgs  gfilenamefsrfi/srfi-111.scm     gnameg%unbox-procedureC4R4#$'grxh:]C2gerr  gs    C|h:]C2gerr  gs    Ch:]C2gerr  gs    C*h8]C0gt-a33a589db48-1c    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-111.scm    C5R4#$'h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-111.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R3h ]& C6|gs  gval  gfilenamefsrfi/srfi-111.scm     gnameg%set-box!-procedureCR4#$'1hV]CNgt-a33a589db48-4a  gt-a33a589db48-4b    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      C3h]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R4ii56789:3; h]4>"G4445 5>"G4>"G4& " 4 5>"G 6gbox  |gport  |gfilenamefsrfi/srfi-111.scm         !   !  !  ' ! . !  7 "  ; " @ "  I #  N # l #  x $ | $   | C6gm  ,grtd o gfilenamefsrfi/srfi-111.scm   -  2   :  & ?   b    b C6