import IO

main = do x <- openFile "/tmp/foo.txt" ReadMode
	  y <- hLookAhead x
          putChar y
          y <- hLookAhead x
          putChar y
          y <- hGetChar x
          putChar y
          y <- hLookAhead x
          putChar y