backconcat_bind_parens.hs

télécharger

main :: IO ()
main = demander >>= (\input1 ->
       demander >>= (\input2 ->
       affiche (input2 ++ input1)))

affiche :: String -> IO ()
affiche = putStrLn

demander :: IO String
demander = getLine