GOOF----LE-8-2.0z!]-4hÿ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gice-9¤ g string-fun¤ ¤ gfilenameS¤ fice-9/string-fun.scm¤ gexportsS¤ gsplit-after-char¤ gsplit-before-char¤ gsplit-discarding-char¤ gsplit-after-char-last¤ gsplit-before-char-last¤ gsplit-discarding-char-last¤ gsplit-before-predicate¤ gsplit-after-predicate¤ gsplit-discarding-predicate¤ gseparate-fields-discarding-char¤ gseparate-fields-after-char¤ gseparate-fields-before-char¤ gstring-prefix-predicate¤ gstring-prefix=?¤ gsans-surrounding-whitespace¤ gsans-trailing-whitespace¤ gsans-leading-whitespace¤ gsans-final-newline¤ ghas-trailing-newline?¤   ¤ gset-current-module¤ ! ¤ " ¤ #g string-index¤ $g string-length¤ %g substring¤ &f¤ 'g string-rindex¤ (g string-ref¤ )greverse¤ *gstring=?¤ +gchar-whitespace?¤ ,gchar=?¤C5h ]4   54">"G#$%h@ð] 45$—"454 5456ègchar  =gstr  =gret   =gt  $gend  $ =gfilenamefice-9/string-fun.scmŒ a ŒŒ  c ŒŒ b ŒŒ  d ŒŒ $ b ŒŒ ) e ŒŒ 3 f ŒŒ = e ŒŒ  = gnamegsplit-after-charŒC R#$%h@ñ] 45$"454 5456égchar  <gstr  <gret   <gt  #gend  # <gfilenamefice-9/string-fun.scmŒ h ŒŒ  i ŒŒ i ŒŒ  j ŒŒ # i ŒŒ ( k ŒŒ 2 l ŒŒ < k ŒŒ  < gnamegsplit-before-charŒC R#%&h8þ] 45$4 54—566ögchar  3gstr  3gret   3gend  3gfilenamefice-9/string-fun.scmŒ n ŒŒ  o ŒŒ o ŒŒ  p ŒŒ  r ŒŒ s ŒŒ ' s ŒŒ ) s ŒŒ + r ŒŒ 1 q ŒŒ 3 q ŒŒ  3 gnamegsplit-discarding-charŒCR'%h8í] 45$—" 4 5456ågchar  7gstr  7gret   7gt  gend   7gfilenamefice-9/string-fun.scmŒ u ŒŒ  w ŒŒ v ŒŒ  v ŒŒ # y ŒŒ - z ŒŒ 7 y ŒŒ  7 gnamegsplit-after-char-lastŒCR'%h8î] 45$" 4 5456ægchar  6gstr  6gret   6gt  gend   6gfilenamefice-9/string-fun.scmŒ | ŒŒ  } ŒŒ } ŒŒ  } ŒŒ " ~ ŒŒ ,  ŒŒ 6 ~ ŒŒ  6 gnamegsplit-before-char-lastŒCR'%&h8] 45$4 54—566gchar  3gstr  3gret   3gend  3gfilenamefice-9/string-fun.scmŒ ŒŒ  ‚ ŒŒ ‚ ŒŒ  ƒ ŒŒ  … ŒŒ † ŒŒ ' † ŒŒ ) † ŒŒ + … ŒŒ 1 „ ŒŒ 3 „ ŒŒ  3 gnamegsplit-discarding-char-lastŒCR$&(%hX>] "H45‘$64455$4 5456—"ÿÿ¸ "ÿÿ±6gpred  Ugstr  Ugret   Ugn   Ngfilenamefice-9/string-fun.scmŒ ˆ ŒŒ  ‰ ŒŒ ‹ ŒŒ  ‹ ŒŒ  Š ŒŒ  ‹ 1ŒŒ  ‹ (ŒŒ  Œ ŒŒ Œ ŒŒ * Œ ŒŒ . Š ŒŒ 1 -ŒŒ ; Ž -ŒŒ E (ŒŒ H Œ .ŒŒ N Œ (ŒŒ N ‰ ŒŒ  U gnamegsplit-before-predicateŒCR$&(%hXa] "J45‘$64455$4 —54—56—"ÿÿ¶ "ÿÿ¯Ygpred  Wgstr  Wgret   Wgn   Pgfilenamefice-9/string-fun.scmŒ ŒŒ  ŒŒ ’ ŒŒ  ’ ŒŒ  ‘ ŒŒ  ’ 1ŒŒ  ’ (ŒŒ  “ ŒŒ “ ŒŒ * “ ŒŒ . ‘ ŒŒ 1 ” -ŒŒ 9 ” >ŒŒ ; ” -ŒŒ < • -ŒŒ C • <ŒŒ E • -ŒŒ G ” (ŒŒ J “ .ŒŒ P “ (ŒŒ P ŒŒ  W gnamegsplit-after-predicateŒCR$&(%hXT] "I45‘$64455$4 54—56—"ÿÿ· "ÿÿ°Lgpred  Vgstr  Vgret   Vgn   Ogfilenamefice-9/string-fun.scmŒ — ŒŒ  ˜ ŒŒ š ŒŒ  š ŒŒ  ™ ŒŒ  š 1ŒŒ  š (ŒŒ  › ŒŒ › ŒŒ * › ŒŒ . ™ ŒŒ 1 œ -ŒŒ ; -ŒŒ B <ŒŒ D -ŒŒ F œ (ŒŒ I › .ŒŒ O › (ŒŒ O ˜ ŒŒ  V gnamegsplit-discarding-predicateŒCR'%hPO]"845$4—5Œ4 5"ÿÿÐ@"ÿÿ½Ggch  Igstr  Igret   Igfields   >gstr   >gt   >gfilenamefice-9/string-fun.scmŒ Ÿ ŒŒ    ŒŒ  £ ŒŒ  ¢ ŒŒ  ¤ !ŒŒ  ¤ 0ŒŒ ! ¤ !ŒŒ $ ¤ ŒŒ % ¥ ŒŒ 6 ¤ ŒŒ > ¦ ŒŒ >   ŒŒ ?   ŒŒ I   ŒŒ  I gnamegseparate-fields-discarding-charŒCR)#%hXe]"A45$ 4 —5Œ4—5"ÿÿÏ4?""ÿÿ´6]gch  Vgstr  Vgret   Vgfields   Igstr   Igt   Igfilenamefice-9/string-fun.scmŒ ¨ ŒŒ  ª ŒŒ ­ ŒŒ  ¬ ŒŒ  ® "ŒŒ " ® 3ŒŒ $ ® "ŒŒ ' ® ŒŒ ( ¯ ŒŒ / ¯ *ŒŒ 1 ¯ ŒŒ 9 ® ŒŒ : ° ŒŒ I ª ŒŒ J ª ŒŒ T ª ŒŒ V © ŒŒ  V gnamegseparate-fields-after-charŒCR'%hH9]"745$45Œ4 5"ÿÿÑ@"ÿÿ¾1gch  Hgstr  Hgret   Hgfields   =gstr   =gt   =gfilenamefice-9/string-fun.scmŒ ² ŒŒ  ³ ŒŒ  ¶ ŒŒ  µ ŒŒ  · !ŒŒ # · ŒŒ $ ¸ ŒŒ 5 · ŒŒ = ¹ ŒŒ = ³ ŒŒ > ³ ŒŒ H ³ ŒŒ  H gnamegseparate-fields-before-charŒCR$%h0¶]4545“$L4 4556C®gprefix  ,gstr  ,gfilenamefice-9/string-fun.scmŒ È ŒŒ  É ŒŒ É $ŒŒ  É ŒŒ  É ŒŒ  Ê ŒŒ Ê (ŒŒ ( Ê ŒŒ * Ê ŒŒ  , Ch]OCwgpred?  gfilenamefice-9/string-fun.scmŒ Ç ŒŒ  gnamegstring-prefix-predicateŒCR4i*i5R$+(&%h¨¬] 45HH"9"1J45’$44J55$ J—K"ÿÿ×" ""ÿÿË"ÿÿÃ"4", J’$ 44J™55$ J™K"ÿÿÜ" ""ÿÿÐ"ÿÿÈJJ’$CJJ6¤gs  ¡gst ¡gend  ¡gfilenamefice-9/string-fun.scmŒ Ù ŒŒ  Û ŒŒ Ú ŒŒ  Ü ŒŒ  Ü ŒŒ Ü ŒŒ $ Ü ŒŒ % Ý ŒŒ ( Ý "ŒŒ 2 Ý ŒŒ 6 Ü ŒŒ 9 Þ ŒŒ ; Þ ŒŒ ? Ü ŒŒ S ß ŒŒ [ ß ŒŒ _ ß ŒŒ ` à ŒŒ c à "ŒŒ j à 0ŒŒ l à "ŒŒ n à ŒŒ r ß ŒŒ u á ŒŒ w á ŒŒ { ß ŒŒ â ŒŒ ” â ŒŒ – ã ŒŒ ¡ ä ŒŒ  ¡ gnamegsans-surrounding-whitespaceŒCR$+(&%h`.] 45H"4", J’$ 44J™55$ J™K"ÿÿÜ" ""ÿÿÐ"ÿÿÈJ ’$C J6&gs  [gend [gfilenamefice-9/string-fun.scmŒ æ ŒŒ  è ŒŒ ç ŒŒ  é ŒŒ  é ŒŒ  é ŒŒ  ê ŒŒ  ê "ŒŒ & ê 0ŒŒ ( ê "ŒŒ * ê ŒŒ . é ŒŒ 1 ë ŒŒ 3 ë ŒŒ 7 é ŒŒ K ì ŒŒ O ì ŒŒ Q í ŒŒ [ î ŒŒ  [ gnamegsans-trailing-whitespaceŒCR$+(&%h`4] 45H"4",J’$44J55$ J—K"ÿÿÜ" ""ÿÿÐ"ÿÿÈJ’$CJ6,gs  `gst `gend  `gfilenamefice-9/string-fun.scmŒ 𠌌  ò ŒŒ ñ ŒŒ  ó ŒŒ  ó ŒŒ  ó ŒŒ  ó ŒŒ ô ŒŒ # ô "ŒŒ - ô ŒŒ 1 ó ŒŒ 4 õ ŒŒ 6 õ ŒŒ : ó ŒŒ O ö ŒŒ S ö ŒŒ U ÷ ŒŒ ` ø ŒŒ  ` gnamegsans-leading-whitespaceŒCR$,(%h@í] 45‘$C4 445™55$ 45™6Cågstr  >gfilenamefice-9/string-fun.scmŒ ú ŒŒ  ü ŒŒ ü ŒŒ  û ŒŒ  ÿ ŒŒ  ÿ ŒŒ  ÿ %ŒŒ $ ÿ !ŒŒ & ÿ ŒŒ ( ÿ ŒŒ , û ŒŒ 2  ŒŒ 9  ŒŒ ;  ŒŒ  > gnamegsans-final-newlineŒCR$,(h(Ã] 45’$ 445™56C»gstr  &gfilenamefice-9/string-fun.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ   ŒŒ   (ŒŒ  $ŒŒ "  ŒŒ $  ŒŒ  & gnameghas-trailing-newline?ŒCRCgm  (gfilenamefice-9/string-fun.scmŒ   ŒŒ s a ŒŒ ¼ h ŒŒ  n ŒŒ H u ŒŒ ‰ | ŒŒ é ŒŒ ™ ˆ ŒŒ l ŒŒ 7 — ŒŒ ê Ÿ ŒŒ À ¨ ŒŒ \ ² ŒŒ ú Ç ŒŒ û Ì ŒŒ  Ì ŒŒ w Ù ŒŒ ! æ ŒŒ Ï ð ŒŒ  ú ŒŒ   ŒŒ   C6