main :: IO()
main = do
    stdin <- getContents
    let squareFeet = inputToSquareFeet stdin
    putStrLn $ "The elves require " ++ show squareFeet ++ " feet of ribbon"

-- use Int insead of Word for simplicity/performance's sake
-- I used a guard instead, but I feel like that too is wrong
-- seems like there are interesting cases for negative surface area
main :: IO()
main = do
    stdin <- getContents
    let squareFeet = inputToSquareFeet stdin
    putStrLn $ "The elves require " ++ show squareFeet ++ " feet of ribbon"

-- use Int insead of Word for simplicity/performance's sake
-- I used a guard instead, but I feel like that too is wrong
-- seems like there are interesting cases for negative surface area
main = do
    stdin <- getContents
    let squareFeet = inputToSquareFeet stdin
    putStrLn $ "The elves require " ++ show squareFeet ++ " feet of ribbon"

-- use Int insead of Word for simplicity/performance's sake
-- I used a guard instead, but I feel like that too is wrong
-- seems like there are interesting cases for negative surface area