import IO

main = bracket (openFile "/tmp/foo.txt" ReadMode) (print)
               (\x -> return())