RosettaCodeData/Task/String-concatenation/Haskell/string-concatenation.hs

import System.IO
s = "hello"
s1 = s ++ " literal"
main = do putStrLn (s ++ " literal")
          putStrLn s1