[<EntryPoint>]
let main _ =
    let days = ["SAT"; "FRI"; "THU"; "WED"; "TUE"; "MON"; "SUN"]
    let input = System.Console.ReadLine()
    List.findIndex ((=) input) days
    |> (+) 1
    |> printfn "%i"
    0