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