import Control.Applicative main :: IO () main = solve <$> getLine <*> getLine <*> getLine >>= print solve :: String -> String -> String -> Int solve r g b = f r * f g * f b where f s | s == "NONE" = 256 | otherwise = let x = subtract 15 . length . filter (==',') $ s in x * x