boucle.hs

télécharger

main :: IO ()
main = do
    input <- getLine
    if input == "exit" then
        putStrLn "Fini."
    else do
        putStrLn ("input = " ++ input)
        main