extractLines :: FilePath -> IO [String]
Use basic primitives to read the content of a file.
disp :: Int -> IO [String] -> IO ()