
main = do
        a <- getLine
        putStrLn $ show (ans a)

ans :: String -> Int
ans a = case a of 
                "Sun" -> 7
                "Mon" -> 6
                "Tue" -> 5
                "Wed" -> 4
                "Thu" -> 3
                "Fri" -> 2
                "Sat" -> 1
