{-# LANGUAGE ScopedTypeVariables #-}
import Data.List.Split
import Data.List

main = do
    lines <- readFile "1.in"
    putStrLn . show . solveB $ lines
    where
        solveA = maximum                       . groupElves
        solveB = sum . take 3 . reverse . sort . groupElves
        groupElves = map ( sum . map parseInt . words) . splitOn "\n\n"
        parseInt = read :: String -> Integer