昨日のかいりょーばん
module Main () where import GHC.IO (liftIO) main = do i1 ← getInt i2 ← getInt let w = i1 h = i2 print $ area w h print $ around w h getInt :: IO Int getInt = readLn area :: Int → Int → Int area w h = w * h around :: Int → Int → Int around w h = 2*w + 2*h
こうなりますた。