import IO
import Directory

main = do x <- getModificationTime "/tmp/foo.txt"
	  print x
          hdl <- openFile "/tmp/foo.txt" AppendMode
	  hPutStr hdl "Hello"
	  hClose hdl
	  y <- getModificationTime "/tmp/foo.txt"
	  print y