A Message displays multi-line text like this:
main = hGetContents stdin >>= \ ls -> wopen [] (message (head (lines ls))) >> return ()
