ELF� @ � @ 8 @ p p � � p p j@
� ; �? T
�? ; �? T @ ; �? T
@ �T @ | � � @ @ q U @ G @ � p � ` � P � ' 0 T
@ |
� �
�? @ q U
@ G
� ' - > U @ T
@ 4
) 9 �� H
T
�? 4
) ; @ H
T
@ 4
) ; @ H
T
@ 4
) ;
@ H
� ' s@
p T
@ T @ 9 �� ; � B H HB H HT @ �B H HB H H; @ B H HB H H| � } � G ' � ; @ T @ ' : � B H H B H
H
� � ' & '@ O@ �| �
�/ | �* } �' G ' 9 P GB H H 7@ ' | �
� | � } � G ' " p GB H HP �&
@ & @ ` T
@ | � T ^? T @ 4o U @ G@ ' A | �� } �� G | �� } �� Kh;� � � r � � G � � T �? ~P �� T �? G' ����P ; @ T �? ' � P B H HT @ ; :@ �B H HB H HB H HT F? T �? B H HB H HB H HB H H` ' T &@ ~P �l G| �" } � G T $@ T B? �B H HB H HB H HT @ B H HB H HB H H` ' & q? T @ ~P �3 T @ ~P �= G| �) } �& G T �? ; �? �B H HB H HB H HT @ T �> T ? B H HB H HB H HB H H` ' & ;? ; %@ ' T ,@ ~p � ; @@ ' T G@ � ; F@ �B H HB H HB H HB H HB H H$@ & ? G@ | � � V> :@ q U �> G' ?@
' ��� =@
' ��� ;@
V �= � ; �= 1 U �= U �= V �= � ; �= 1 U �= U �= V �= � ; �= 1 U �= U �= V �= �= V �= �= V �= � ; �= 1 U �= T �= 1 U �= V �= � V �= � ; �= 1 U �= T �= 1 U �= V �= � ; �= 1 U �= T �= 1 U �= V �= � ; �= 1 U �= U �= V �= � V �= � V �= � ; �= 1 U �= V �= ���V �= � ; �= 1 U �= V �= p���V �= � ; �= 1 U �= V �= l���V �= � ; �= 1 U �= V �= � ; �= 1 U �= V �= � ; �= 1 U �= U 3? U �> V �= � ; �= 1 U �= U "? U �> U �= ; � U �> U �= V �= � ; �= 1 U �= U 9? U �= V �= � V �= �= V �= � ; �= 1 U �= U > U > V �= � V �= �= V �= � ; �= U
> U �= V �= � V > �= V > � ; > 1 U > V > � ; > 1 U > V > � ; > 1 U > V > � ;
> 1 U > U > V > > V > � ; > 1 U > V > � ; > 1 U > U B> V > � ; > 1 U > U /> V > � ; > 1 U > U > V > > V > > ; > U �> U > V > > V > > V > > V > � ; > 1 U > V > � ; > 1 U > V > } ; > 1 U > V > z ; > 1 U > V > y ; > 1 U > V > x ; > 1 U > U K> V > u ; > 1 U > U 0> V > r ; > 1 U > U > V > > V "> > V !> > V $> > V %> > V &> > V '> ] ; "> 1 U &> V (> \ ; #> 1 U '> U +> V +> %> V *> &> V -> '> V .> P ; )> 1 U -> V /> O V :> Z � ' language ' brainfuck ' compile-scheme ' filename ' % language/brainfuck/compile-scheme.scm ' exports ' declarative? ' guile ' define-module* ' set-current-module ' tape-size ' compile-body ' compile-instruction ' let ' make-vector ' tape ' pointer '
write-char
' wrong-type-arg ' cdr ' 6 Wrong type argument in position 1 (expecting pair): ~S ' car ' reverse ' <bf-loop> ' begin ' iterate ' if ' not ' = '
vector-ref ' <bf-move> ' + ' set! ' <bf-read> ' <bf-increment> ' vector-set! '
char->integer ' read-char '
<bf-print> '
integer->char '
misc-error ' ! unknown brainfuck instruction ~S ' append � 8 0 8 X : � < 8 = T ? | @ ""
� `7 `7 � `7 `7 � � `7 � % E E E X������
6 � 4���L��� � �����
! ���� ��� �� ��� ���$��� ���,��� ������ � P P g � � � h * � � A < p E H ? M � � U � � k � z X � � � � � � p / � � K � � � � � � ` � � � @ � | � | � 8 � � � � 4 � B 4 l � l � � � � �
' 1 @ M a $,4 <(@0H8d8l8p8� ����� ����������� �� eim rr rr rr
rr $ ,(00< LP(T0` pt0� �@�H�P�@���w r�� r����� 8(PT X` `�8�� ��� � �� � � �����
r rrr rrrr� � rrr rrr�� � rrr rrrra�a rrrrr (DH|��(�0�8�(� �� ��� ��� �� ����� � ���� � � � ������ � ���� � �� �� �(���� � � � ��� �(�� ����� $ , 0 w � � 3�� h � |
d | ) � �= 8 T ) t � � % . . . Guile 3.0.7 compile-scheme compile-body compile-instruction append@@guile � b �
language/brainfuck/compile-scheme.scm ice-9/psyntax.scm ice-9/boot-9.scm � � D;� ,�a,,� ,�b,$� ,� ;��b TJJ, w we�=mJ,�
wf �,�g,�\ ,= ,=wi e,=wi ;,+X�R <#� / e �,�g,b/�Ъ�$
,z� Y; , W s� �� | | � � � 1 4 8 l � � � compile-scheme compile-body compile-instruction append@@guile closure arg cache var proc tmp module tape-size compile-scheme compile-body compile-instruction val exp env opts pair instructions cur result cached mod name box ins key hash idx b dir inc arg0 arg1 arg2 .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