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¤ $gmain¤C5hŒ]4    54>"GRR h ]!"pŠ$B44554:5$4 5$"4Ž5""$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-punilyŒCR !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-oneŒC"R#"ht-136lgargs gfilenamefscripts/punify.scmŒ Q ŒŒ  R ŒŒ  gnamegpunifyŒCRi$RC„gm  (gfilenamefscripts/punify.scmŒ  ( ŒŒ , + ŒŒ . , ŒŒ 1 , ŒŒ  . ŒŒ á G ŒŒ ‡ Q ŒŒ Ž T ŒŒ   C6