main = do
  putStr "How old are you? "
  x <- getLine
  let age = read x
  if age > 99
  then putStrLn "My, that's old!"
  else return ()
  if age < 10
  then putStrLn "Never too young to learn Haskell!"
  else return ()
  putStrLn ("Nice age to be, " ++ show age)