RosettaCodeData/Task/Variables/Haskell/variables-2.hs

main = do
    s <- getLine
    print (s, s)

-- The above is equivalent to:

main = getLine >>= \s -> print (s, s)