Verify the size of a file called     input.txt     for a file in the current working directory, and another one in the file system root.




import System.IO
 
printFileSize filename = withFile filename ReadMode hFileSize >>= print
 
main = mapM_ printFileSize ["input.txt", "/input.txt"]