alphabetique

main = do
    premierMot <- getLine
    deuxiemeMot <- getLine
    putStr "Le premier mot est " 
    putStrLn premierMot
    putStr "Le second mot est "
    putStrLn deuxiemeMot
    putStrLn (trouverOrdre premierMot deuxiemeMot)

trouverOrdre  :: String -> String -> String
trouverOrdre (premiereLettreMot1:suiteMot1) (premiereLettreMot2:suiteMot2)
    | premiereLettreMot1 < premiereLettreMot2 = "Le premier mot est avant le second"
    | premiereLettreMot1 > premiereLettreMot2 = "Le second mot est avant le premier"
    | premiereLettreMot1 == premiereLettreMot2 = trouverOrdre suiteMot1 suiteMot2