> module IOExercise where
> 
> import System.FilePath

> simpleProgram :: IO ()
> simpleProgram = do
>    putStrLn "This is a simple program that does IO."
>    putStrLn "What is your name?"
>    inpStr <- getLine
>    putStrLn ("Welcome to Haskell, " ++ inpStr ++ "!")

> 
> simpleProgramSoln :: IO ()
> simpleProgramSoln = 
>    putStrLn "This is a simple program that does IO." >>
>    putStrLn "What is your name?" >>
>    getLine >>= \inpStr ->
>    putStrLn ("Welcome to Haskell, " ++ inpStr ++ "!")

> lengthProgram :: IO Int
> lengthProgram = do
>    let x = length [1,2,3,4,5,6]
>    putStrLn ("The length of the list is" ++ show x)
>    return x
> 
> 
> lengthProgramSoln :: IO Int
> lengthProgramSoln = 
>    let x = length [1,2,3,4,5,6] in
>    putStrLn ("The length of the list is" ++ show x) >>
>    return x

> anotherProgram :: IO ()
> anotherProgram = do
>    putStrLn "What is your name?"
>    inpStr <- getLine
>    if inpStr == "Haskell"
>        then do putStrLn "You rock!"
>                return ()
>                putStrLn "Really!!"
>        else putStrLn ("Hello " ++ inpStr)
>    putStrLn "That's all!"

> 
> anotherProgramSoln :: IO ()
> anotherProgramSoln = 
>    putStrLn "What is your name?" >>
>    getLine >>= \inpStr ->
>    (if inpStr == "Haskell"
>        then putStrLn "You rock!" >>
>             return () >>
>             putStrLn "Really!!"
>        else putStrLn ("Hello " ++ inpStr)) >>
>    putStrLn "That's all!"