import IO

main = bracket (openFile "/tmp/foo.txt" ReadMode) (hClose)
               (\hdl ->
		  do x <- hGetChar hdl
		     y <- hGetChar hdl
                     print (x,y)
	       )