GOOF----LE-8-2.0 ]>4h] gguile  gdefine-module*   glanguage g brainfuck gcompile-scheme  gfilenameS f%language/brainfuck/compile-scheme.scm gexportsS  gset-current-module   g tape-size glet gpointer   gtape g make-vector   gappend   g compile-body g write-char    greverse gcompile-instruction !g  "gset! #g+ $g %g vector-set! &g vector-ref '& (g  )g integer->char *)' +* ,g  -g char->integer .g read-char /. 0-/ 1%0 2g  3giterate 4gif 5gnot 6g= 76'  857 9gbegin :3 ;: "G u0R h0]445 5Dgexp  -genv  -gopts   -gfilenamef%language/brainfuck/compile-scheme.scm 5  7   9  9  ! 9 # 7  - 6   - gnamegcompile-schemeCR h8-]"&(645""%g instructions  7gcur  ,gresult   ,gcompiled   ,gfilenamef%language/brainfuck/compile-scheme.scm D  E  G   H   I   I +  I   I   J  $ J  , J  , E  / F  7 E   7 gnameg compile-bodyCR!"#$%'(+,123489;<=hs]$C$C $ C $ C $"4455C6kgins  gkey  gdir   'ginc  4 Igfilenamef%language/brainfuck/compile-scheme.scm P  Q   Q   V   V   W  0 Q  3 \  4 \  8 ]  R Q  T c  ^ Q  ` i  j Q  l t  y w  ~ w  w  t  z  z 2 z   gnamegcompile-instructionC RCgm  (gfilenamef%language/brainfuck/compile-scheme.scm   . $ Z 5  D & P   ( C6