asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T GOOF----LE-8-2.0P]4hI] gguile  gdefine-module*   gsxml gsimple  gfilenameS fsxml/simple.scm gimportsS gssax g input-parse        g transform   gice-9 gmatch   gsrfi gsrfi-13    gexportsS g xml->sxml g sxml->xml !g sxml->string " ! #gset-current-module $# %# &gstring-concatenate/shared 'gstring? (gssax:reverse-collect-str )g next-token *] +freading internal DOCTYPE ,gpeek-next-char -g read-char .f] /gread-internal-doctype-as-string 0g namespacesS 10  2gdeclare-namespaces?S 32  4gtrim-whitespace?S 54  6gentitiesS 76  8gdefault-entity-handlerS 98  :gdoctype-handlerS ;:  <13579; =gcurrent-input-port >gmap ?gssax:uri-string->symbol @gerror A@ B@ Cfno matching pattern Dg symbol-append Egstring->symbol Ff: Ggssax:scan-Misc HG IG Jg eof-object? KJ LJ Mg parser-error NM OM PfXML [22], unexpected EOF QgPI Rg*PI* Sgssax:read-pi-body-as-string TgDECL UE VE WfDOCTYPE Xf.XML [22], expected DOCTYPE declaration, found  Ygassert-curr-char ZY [Y \g ssax:S-chars ]\ ^\ _fXML [28], space after DOCTYPE `g ssax:skip-S a` b` cgssax:read-QName dc ec fgssax:ncname-starting-char? gf hf igssax:read-external-id ji ki l>[ mfXML [28], end-of-DOCTYPE ngcall-with-values ogssax:skip-internal-dtd p6  qp1 rgappend sgassq tg *DEFAULT* ugSTART vfXML [22], unexpected markup  wgssax:Prefix-XML xw yw zfspace {gssax:complete-start-tag |{ }{ ~g EMPTY-TAG g ssax:reverse-collect-str-drop-ws g attlist-fold g@ gEMPTY gssax:assert-token   gssax:read-markup-token   gEND f[elementvalid] broken for  f while expecting  gassoc   fpreserve gssax:read-char-data   g string-null? f[GIMatch] broken for  g ENTITY-REF gssax:handle-parsed-entity   gPCDATA f* with char content only; unexpected token  fXML [43] broken for  gopen-input-string greverse g*TOP* gmake-hash-table g hashq-ref gsymbol->string g string-index g substring f"Invalid QName: more than one colon gfor-each gchar-alphabetic? g string-ref fInvalid name starting character gstring-for-each f 0123456789.-_ fInvalid name character g hashq-set! g check-name gattribute-value->xml gstring->escaped-xml g procedure? gwith-output-to-port gcall-with-output-string gdisplay f=" gattribute->xml f bad attribute fbad attributes f fbad element body f /> g element->xml g entity->xml f gpi->xml gcurrent-output-port g*ENTITY* fbad *ENTITY* args glength f bad *PI* args gstring-concatenate-reverse gfoldts gappend! glist->char-set gcar g string-length gassv gmake-char-quotator f< <Ό f> >Ќ f& &Ҍ f" "Ԍ C5hh?]4   "54%>"G&'h](C(C"c((C45C45$"(" 45""g fragments  g fragments  {gresult   {gstrs   {gfilenamefsxml/simple.scm ,  -  .  /  -   1   2  $ 4 ( 5  1 5  3 6 8 6  : 6 > 2  A 7  F 7 / I 7 ) S 7 V 9  Y ;  _ <  f =  o =  p :  q >  { 9 { 1  ~ 1 /  1 : 1   gnamegssax:reverse-collect-strC(R&)*+,-.hH]4L5>4L5$4L>"GC4L5Cgfragment  Bgfilenamefsxml/simple.scm B   D  D   D  D $  D  C   E   E  E   G  5 H  : I  ; I @ I   B gnamegloopCh ] OQ456gport  gloop gfilenamefsxml/simple.scm @ B   A    gnamegread-internal-doctype-as-stringC/R<=>?BCh@]$#L$"45C456gel  9gw  ,gx   ,gfilenamefsxml/simple.scm l  m  o  # q  * o  - m   9 Ch]LO6xg namespaces  gfilenamefsxml/simple.scm k   l    gnamegmunge-namespacesCDEFh(]$456Cgname  %gw  "gx   "gfilenamefsxml/simple.scm }   ~     -   "   % gnameg name->sxmlCILOPQRSTVWX[^_behklmn/oh@C]L$LLLL$ 4L5"6L$4L>"G"D;gfilenamefsxml/simple.scm   @ Cqrsthp-/03##4L$4L5$L"LL"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scm    # / '  1 x  2 y  6 y  : y  > x  F z  I z  T  U  X  _ u  g  k   k gentitiesS g namespacesS CuhC]L$L6D;gfilenamefsxml/simple.scm    Cqrsthp-/03##4L$4L5$L"LL"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scm    # / '  1 x  2 y  6 y  : y  > x  F z  I z  T  U  X  _ u  g  k   k gentitiesS g namespacesS CvILOPQRSuv h+]4545$6$345"$L6 6#gport  gelems  gentities   g namespaces   gseed   gtoken  gkey  ! gtarget  / Egseed  E _ gfilenamefsxml/simple.scm   gnameg#scan-for-significant-prolog-token-2CyVz}~(hi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    CbOh]L6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scm    Chi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    Ch ]45$CCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scm    CLOh]LL6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scm    C(hi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    CQRSh~]L6vgport  gentities  gseed   gfilenamefsxml/simple.scm   Ch ]45$CCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scm    CuOhpd],4> G45$C$j4LO>"GL$ 45"454  L OL54L L 5(" LC $/ 45"*$-4LO5"$NL&4L >"G"4LLL5"6\gport  ogentities  og expect-eof?   ogseed   ogseed   og term-token   ogkey  + ogseed  | gattrs  | gtarget  gseed  gseed  gseed  O e gfilenamefsxml/simple.scm   o gnamegloopChP]64L> G  $IL$ 45"454LO5  4L5 ( "  C $~4 <4 5$ 4 5"  O>"GL$ 45"454LO5  4L5 ( "  C4M5  $  "  O    L LLQ  6gstart-tag-head  Pgport  Pgentities   Pg namespaces   Pg preserve-ws?   Pg parent-seed   Pgelem-gi   Pg attributes   Pg namespaces   Pgexpected-content  Pgseed N rgattrs N rgseed gattrs gt  g preserve-ws?  Pgloop - Pgfilenamefsxml/simple.scm   P gnameghandle-start-tagCh@2]H45KOLLQ6*gstart-tag-head  :gport  :gelems   :gentities   :g namespaces   :g preserve-ws?   :gseed   :g xml-space-gi   :ghandle-start-tag   : gfilenamefsxml/simple.scm   : gnamegelement-parserCho]r"4545$6$'45"$4  5  $"4 >"G 4  >"G4>"G45 4455$ 45" 4>"G[4 5 4   LOLLLLO> G    6$@4LOLLLLO> G      66OOQLLQ"Bggport  gseed  gport   gseed   gtoken  gkey  % gtarget  3 Igseed  I Wg token-head  c Egt o gdocname Egsystemid Eginternal-subset?  Egelems , Egentities , Eg namespaces  , Egseed  , Egelems  q gentities q g namespaces q gseed q g#scan-for-significant-prolog-token-2   gelement-parser   gfilenamefsxml/simple.scm    gnamegparserC' hV-/03 #45######OO QQ 45$ 45" 44  55   CNgstring-or-port  g namespaces  gdeclare-namespaces?   gtrim-whitespace?   gentities   gdefault-entity-handler   gdoctype-handler   gmunge-namespaces  p g name->sxml  p gparser p gport gelements  gfilenamefsxml/simple.scm V  V / ' W B Z        )      g namespacesS gdeclare-namespaces?S gtrim-whitespace?S gentitiesS gdefault-entity-handlerS gdoctype-handlerS gnameg xml->sxmlg documentationfUse SSAX to parse an XML document into SXML. Takes one optional argument, @var{string-or-port}, which defaults to the current input port.CR4i5@@@h8] 45$C45$CLL6gc  4gt 4gt  4gfilenamefsxml/simple.scm      0  >  0   , " 4   4 Chh]$X44 55$"&4 5_$" 4L5$LO6CCgs  bgt  Kgt  - Hgfilenamefsxml/simple.scm    *     #  -  -  ;  ?  E  O  ^   b C h]!4L5$C454:5$4 5"$"$45"$1445:5$4>"G""4O>"G L6gname  gstr  gi  # gt  : Mghead  M gtail  d gfilenamefsxml/simple.scm           # +  , " :  M U  V  ] - _  d l m  p ! w 0 y ! }       COR'h_]L6Wgport  gfilenamefsxml/simple.scm    -  Chh]$4>"G6(C45$645$64O56gvalue  ggport  ggfilenamefsxml/simple.scm         #  '  -  0  :  B  C  M  U  X   g    g gnamegattribute-value->xmlCRhX]4>"G4>"G4>"G4>"G"6gattr  Xgvalue  Xgport   Xgfilenamefsxml/simple.scm        )   -  4   =   X    X gnamegattribute->xmlCR@  hp]4>"G4<>"G4>"G$"$^4 >"G$4>"G"4>"G"(""4>"G""o"$4>>"G"e$4>"G"(04>"G4>"G 6 6" 6gtag  ogattrs  ogbody   ogport   ogattrs  F gattr  P gbody  _gfilenamefsxml/simple.scm        )   B   F   I  M   P   P  S   i   m   n   s  " v  - }                                  !  !   !  "   " %  & $ * $  1 $ : % Q &  U & Y (  _ ( _   k )  o ) 3  o gnameg element->xmlCRh8]4&>"G4>"G;6gname  2gport  2gfilenamefsxml/simple.scm ,  -   .  2 /   2 gnameg entity->xmlCRh`]4>"G4>"G4 >"G4>"G6gtag  Zgstr  Zgport   Zgfilenamefsxml/simple.scm 2  3   3  3   4  + 5  ? 6  V 7 Z 7   Z gnamegpi->xmlCR @R h\]L6Tgx  gfilenamefsxml/simple.scm T  T   C'h_]L6Wgport  gfilenamefsxml/simple.scm ^  ^ -  Chp-.,3#45$$$ 6$5" 6$45 $ 6"" $;"  6$"45 $ 6""$$$ &""" $"6O645$6(C$.&C45$64O56Cgtree kgport kgtag  +  gelems   gattrs   gfilenamefsxml/simple.scm 9  9 *  >  =  # ?  $ ?  ( ?  + A  + A  6 B ; D  ? D H B P H  S H , U H  U F X F  Y F  ] F ^ F , c F 4 e F , g F ) k F  p G  u G  B L  L ( L  J J  J  J J , J 4 J , J ) J  K  K & K  N  N O O  O 5 O . O  P % P ( O  Q N  R '  R 1  R   T   U  % =  - V  3 =  E Z  O =  W [  Z ^  i ] E k gnameg sxml->xmlg documentationfSerialize the sxml tree @var{tree} as XML. The output will be written to the current output port, unless the optional argument @var{port} is present.C Rhq]Cigseed  gtree  gfilenamefsxml/simple.scm f   g    Ch]6gseed  gkid-seed  gtree   gfilenamefsxml/simple.scm h  i   C'h]45$CC{gseed  gtree  gfilenamefsxml/simple.scm j   k k   k    Ch]456gsxml  gfilenamefsxml/simple.scm a  e   l   e   d    gnameg sxml->stringg documentationfMDetag an sxml tree @var{sxml} into a string. Does not perform any formatting.C!R>h]*4L 5$"45$C$s445L54L5$!445>"G"4>"G"w44556 "V6gstr  gport  gbad-pos  gfrom   gto   gi  B Rg quoted-char  R gnew-to  R gfilenamefsxml/simple.scm y   v  z   {   }    "   & ~  /   2  " >   ?   B  ' B   E v  R   [   _   `   c   t            -     } |   Ch ] 4455OCg char-encoding  g bad-chars  gfilenamefsxml/simple.scm o  p   p #  p   p    gnamegmake-char-quotatorCR4i5RC gm  ,g *good-cache* " (gfilenamefsxml/simple.scm   x ,  @ " V "  "  ( *, +w  /  0 , 1 2 8 9 ; a ?Z o ?[   ?a   ?c   ?f    ?h C6