
	.text
	.globl read__function
	
	.align 4
	
# read_function :: !Int -> (!Bool,.a)
#                  %eax     %eax  %ecx
read__function:
#        int3
	movl	%eax,%ecx
        subl    $8,%ecx
	ret


	.align	4
