ÿØÿàJFIFÿþ ÿÛC       ÿÛC ÿÀÿÄÿÄ"#QrÿÄÿÄ&1!A"2qQaáÿÚ ?Øy,æ/3JæݹÈ߲؋5êXw²±ÉyˆR”¾I0ó2—PI¾IÌÚiMö¯–þrìN&"KgX:Šíµ•nTJnLK„…@!‰-ý ùúmë;ºgµŒ&ó±hw’¯Õ@”Ü— 9ñ-ë.²1<yà‚¹ïQÐU„ہ?.’¦èûbß±©Ö«Âw*VŒ) `$‰bØԟ’ëXÖ-ËTÜíGÚ3ð«g Ÿ§¯—Jx„–’U/ÂÅv_s(Hÿ@TñJÑãõçn­‚!ÈgfbÓc­:él[ðQe 9ÀPLbÃãCµm[5¿ç'ªjglå‡Ûí_§Úõl-;"PkÞÞÁQâ¼_Ñ^¢SŸx?"¸¦ùY騐ÒOÈ q’`~~ÚtËU¹CڒêV  I1Áß_ÿÙGOOF----LE-8-2.0 ]%4hs] gguile  gdefine-module*   gscripts gpunify  gfilenameS fscripts/punify.scm gexportsS  gset-current-module     g%include-in-guild-list f1Strip comments and whitespace from a Scheme file. g%summary g string->list gsymbol->string gchar=? gmemq g list->string gdisplay gwrite f( g write-punily f) f  gwith-input-from-file g eof-object? gread !gcurrent-input-port "g punify-one #gfor-each $gmainC5h]4    54>"GRR h ]!"p$B44554:5$4 5$"45""$4:>"G66$("4>"G4 >"G"X( 6$"$"4 >"G4 >"G"""gform  gls  Kgt P vgfirst gls   glast-was-list?   g new-first   gfilenamefscripts/punify.scm . =  =  >   > &  >   >   ?  ! ?  % ?  ) ?  * @  6 ?  < A  A A # C A  P /  Y C  p D  v E  v /  y /  } /  / 0  0 1 1  1 2 3 4 5  5  6 # 6  8  7 ' 8  :  : ! :  ;   <   7 '  <   3  3   3 6  3 3   gnameg write-punilyCR !hP]"445$C4>"G4455"4455"gform  :gt :gfilenamefscripts/punify.scm I   K   L  L  N  + J  . J # 4 J  : O  : K  ; J  > J # D J  J K   J Chv]6ngfile  gfilenamefscripts/punify.scm G H   gnameg punify-oneC"R#"ht-136lgargs gfilenamefscripts/punify.scm Q  R   gnamegpunifyCRi$RCgm  (gfilenamefscripts/punify.scm  ( , + . ,  1 ,  .  G  Q  T    C6