baabaa.hs

import System.IO
main = do
    handle <- openFile "baabaa.txt" ReadMode
    contents <- hGetContents handle
    putStr contents
    hClose handle

baabaa.txt

Baa, baa, black sheep,
Have you any wool?
Yes, sir, yes, sir,
Three bags full;