All pastes #404740 Raw Edit

Untitled

public text v1 · immutable
·published 2007-03-21 05:59 UTC
rendered paste body
prompt s = do putStrLn s
              readLn

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