-- Slide 55
-- It makes more sense to compile this file

import Data.List

main::IO()
main = getLine >>= (\x -> getLine >>= (\y -> putStrLn (y ++ x)))