backconcat_do.hs

télécharger

main :: IO ()
main = do
    input1 <- demander
    input2 <- demander
    affiche (input2 ++ input1)

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

demander :: IO String
demander = getLine