{-# LANGUAGE OverloadedStrings #-}

import qualified Data.Text as T
import Data.List (sort)

main = interact $
  show
  . sum
  . (\l -> [l!!0, l!!1, l!!2]) -- this is stupid :)
  . reverse . sort
  . map (sum . map read . lines . T.unpack)
  . T.splitOn "\n\n" . T.pack