Sub Main()
    Dim dict As New Dictionary(Of String, Integer)()
    dict.Add("Forest", 1)
    dict.Add("Plains", 1)
    dict.Add("Boar", 2)
    dict.Add("Bat", 2)
End Sub