Module Program
    Sub Main()
        Dim game As New Game(New ConsoleAdapter)
        game.BeginLoop()
    End Sub
End Module