ELF@@8@pppp9D???4p<?=@<@=@<?0 D@?@4`0p =@Bp5<@=@Bp5@>@=#@Bp<"@5`>#@=+@Bp<*@5`>+@=?B<(@5`A4=.@Bp59 D 2@?0@40@ " #R C-@?+@4p<)@ C+@??4`0 SD @e?@4P0` #^R" D ?T??40Pp " 4p<@ 4`0P S D?8??40P` <?# /R"D?$??40@ "4p0P 4`0@ S D? ??40@p # 4 p<?( LC ?^??4 C?X??4p0 0@ C?E??4pR9 :@ ""9 D?>?4`0p0@ "C?&??4pS0p@ !9 !9 !9 " CW??U?49 : 4000 pC ???4 C???4 <?C?>?4C?>?4` 0pP C?>?4P0p` ":C?>>4@0p 44` 0pp 4P0pp "4@0p 44` 0pp !0@00  Cq?>o?40Cm?>>400 0?=<=O>=?=<=O>===>=?==?=<=O>=?=<=O>===>===>=?==?=<=O>===P>=?=?><=O>>==P>=?><=O>>?><=O>>?>? ><>O> >?>< >O>>?> ?><>O>>?>?>k?><>O>>?><>O>>? ><>O> >?$>?+>?0>?5><0>O>5>?9><4>O>9>?=><8>O>=>?A><<>O>A>?E><@>O>E>?I><D>O>I>?M><H>O>M>?Q>?R><M>O>R>?V><Q>O>V>?Z><U>O>Z>?`><[>O>`>9 'define-module*'guile'scripts'punify'filename'scripts/punify.scm'exports'set-current-module'%include-in-guild-list'1Strip comments and whitespace from a Scheme file.'%summary' write-punily' punify-one'main'list?'display'(' ')' string->list'symbol->string'char=?'memq' list->string'write'with-input-from-file'read'current-input-port' eof-object?'for-eachTh Px4L |  8x0Hd "*    *"`7A`7`7`7 0`71 E EE  E  8 8  P *$<pE MU8mk  z   m/0,``#@< <@E@llHy ") (08@H \pt 5:?:E::ORE::OR:a4H\`h      c$504Ldx |  h  $8<i3P < $(,T%P0%... Guile 2.2.7write-punilypunify-onepunify& scripts/punify.scm (-J.ZY!,-x ,Z7$.(+"=,ZZ({"z,$..(+=iZ({4x,4'w,Y<$nZ.-$h h$sh h=$sh|L<<@,lPHwrite-punilypunify-onepunifyclosurepublic?boxargtmpnamemoduleunspecifiedformprocfirstnew-firstlslast-was-list?tfileargs.guile.procprops.rodata.data.rtl-text.guile.frame-maps.dynamic.strtab.symtab.guile.arities.strtab.guile.arities.guile.docstrs.strtab.guile.docstrs.debug_info.debug_abbrev.debug_str.debug_loc.debug_line.shstrtab