prompt s = putStrLn s
           readLn

main = do base <- prompt "The base? "
          height <- prompt "The height? "
          putStrLn $ "The area of that triangle is " ++ show (base * height / 2)