-- Slide 55 -- It makes more sense to compile this file import Data.List main::IO() main = getLine >>= (\x -> getLine >>= (\y -> putStrLn (y ++ x)))