main :: IO ()
main = interact $ ("8/" ++ ) . show . (+31) . sum . map f . words

f :: String -> Int
f "Sun" = 1
f "Sat" = 1
f  _    = 0