module Main where

import           Control.Monad

main :: IO ()
main = do
    n <- map read . lines <$> readFile "input/01"
    print . head $ ans1 n
    print . head $ ans2 n

ans1 l = do
    a <- l
    b <- l
    guard $ a + b == 2020
    return $ a * b

ans2 l = do
    a <- l
    b <- l
    c <- l
    guard $ a + b + c == 2020
    return $ a * b * c