import Text.Parsec.String (Parser)
import Text.Parsec
import System.Environment
import Data.List
import Data.Function
import Data.Maybe
import qualified Data.Map as M
import Control.Monad

data Color = Red | Green | Blue deriving (Show,Eq,Ord)
type Set = M.Map Color Int
type Game = (Int, [Set])

red = string "red" *>  pure Red
green = string "green" *>  pure Green
blue = string "blue" *>  pure Blue

color = red <|> green <|> blue 

handful = liftM2 (flip (,)) (space *> (read <$> many1 digit)) (space *> color)

set = M.fromList <$> (sepBy handful $ string ",")
game = (,) <$> (string "Game " *> (read <$> many1 digit)) <*> (string ":" *> sepBy set (string ";"))

games = sepBy game newline

solution :: Game -> Int
solution = product . M.elems . M.unionsWith max . snd

main = (>>=) <$> readFile <*> ((print . sum . map solution . either (error.show) id) .) . parse games =<< head <$> getArgs