import IO main = do x <- openFile "/tmp/foo.txt" ReadMode y <-hFileSize x print y