imports System.Collections.Generic

Module Module1

    Sub Main()

        Dim S As String = Console.ReadLine()
        Dim t As New List(Of tbl)

        t.Add(New tbl("MON", 6))
        t.Add(New tbl("TUE", 5))
        t.Add(New tbl("WED", 4))
        t.Add(New tbl("THU", 3))
        t.Add(New tbl("FRI", 2))
        t.Add(New tbl("SAT", 1))
        t.Add(New tbl("SUN", 7))

dim n as tbl
        For Each n In t
            If n.youbi() = S Then
                Console.WriteLine(n.nissu)
            End If
        Next

    End Sub

     Class tbl

        Private _youbi As String
        Private _nissu As Integer

        Public Sub New(youbi As String, nissu As Integer)
            _youbi = youbi
            _nissu = nissu
        End Sub

        Public Property youbi() As String
            Get
                Return _youbi
            End Get
            Set(value As String)
                _youbi = value
            End Set
        End Property

        Public Property nissu() As Integer
            Get
                Return _nissu
            End Get
            Set(value As Integer)
                _nissu = value
            End Set
        End Property

    End Class

End Module
