import IO

main =  do hdl <- openFile "/tmp/foo.txt" ReadMode
	   aaa hdl

aaa hdl =  do t <- hIsEOF hdl
	      if t then return()
	           else do x <- hGetChar hdl
			   putChar x
			   aaa hdl