GOOF----LE-8-2.0� ] > 4 h� ] g guile� � g define-module*� � � g language� g brainfuck� g compile-scheme� �
g filenameS� f %language/brainfuck/compile-scheme.scm� g exportsS�
� g set-current-module� � � g tape-size� g let� g pointer�
� g tape� g make-vector�
� g append� � � g compile-body� g
write-char�
� � g reverse� g compile-instruction� !g <bf-move>� "g set!� #g +� $g <bf-increment>� %g vector-set!� &g
vector-ref� '& � (g
<bf-print>� )g
integer->char� *)' � +* � ,g <bf-read>� -g
char->integer� .g read-char� /. � 0-/ � 1%0 � 2g <bf-loop>� 3g iterate� 4g if� 5g not� 6g =� 76'
� 857 � 9g begin� :3 � ;: � <g error� =f unknown brainfuck instruction �C 5 h( � ]4
5 4 > "