main = do
    content <- readFile "input"
    let input = lines content
    print (day11 input)
    print (day12 input)


day11 :: [String] -> Int
day11 xs = sum $ map ((subtract 2) . (`div` 3)  . read) xs

day12 :: [String] -> Int
day12 xs = (sum $ map (f . read) xs) - (sum $ map read xs) where
    f x | x>0=x+f (((subtract 2) .  (`div` 3)) x)
        | otherwise = 0