1#@!#!123s

file_get_contents 1#@!#!123s
: / proc / thread-self / root / usr / lib64 / guile / 2.0 / ccache / language / brainfuck /
Filename : compile-scheme.go
back
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�>��"��G���u0R�
���h0�������]����44��5	5��D�����������g��exp
		-�g��env		-�g��opts			-��g��filenamef��%language/brainfuck/compile-scheme.scm�
	5
��		7	��		9		��		9	��	!	9		��	#	7	��	-	6	���		-	��g��nameg��compile-scheme��CR ������h8���-��]"��&(��64�5��"����"����%������g��instructions
		7�g��cur		,�g��result			,�g��compiled			,��g��filenamef��%language/brainfuck/compile-scheme.scm�
	D
��		E	��		G	��		H	��		I	��		I	+��		I	��		I	��		J	��	$	J	��	,	J	��	,	E	��	/	F	��	7	E	���		7��g��nameg��compile-body��CR!"#$%'(+,123489;<=������h����s��]���$�������C�$�������C	�$��
C�$��C
�$��"44��55���C6����k������g��ins
	���g��key	���g��dir			'�g��inc		4	I��g��filenamef��%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	
���	����g��nameg��compile-instruction��C RC��������g��m
		(��g��filenamef��%language/brainfuck/compile-scheme.scm�		
��	.	$
��Z	5
���	D
��&	P
���	(
���C6�