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

f :: [String] -> Int
f ["Sun", "Sat"] = 2
f ["Sun", "Sun"] = 2
f ["Sat", "Sat"] = 2
f ["Sat", "Sun"] = 2
f ["Sun", _]     = 1
f ["Sat", _]     = 1
f _              = 0