Imports System

Public Class Program

    Public Shared Sub Main(args As String())

        Select Case Console.ReadLine
            Case "SUN"
                Console.WriteLine(7)
            Case "MON"
                Console.WriteLine(6)
            Case "TUE"
                Console.WriteLine(5)

            Case "WED"
                Console.WriteLine(4)
            Case "THU"
                Console.WriteLine(3)
            Case "FRI"
                Console.WriteLine(2)
            Case "SAT"
                Console.WriteLine(1)
        End Select

    End Sub
End Class
