Module problemA

    Sub Main()
        Dim prm As String = Console.ReadLine
        Dim week() As String = New String() {"SUN", "MON", "TUE", "WED", "THU", "FRI", "SAT"}

        Console.WriteLine(7 - Array.IndexOf(week, prm))
    End Sub

End Module