main =
    let bye = putStrLn "Bye!" in
    do
      hi "Fred"; how; bye
    where
      hi n = putStrLn ("Hi " ++ n)

how = putStrLn "How're ya doin'?"