Imports System

Public Module Module1

    Public Sub Main()

        Dim X as integer = 0 

        Do While X < 10753

            Console.WriteLine(X.ToString)

            Dim Name as string =""

            Dim TestName as String = "Ok"

            Console.WriteLine("Eli wants to play" + Name )

            Name = Console.ReadLine()

            If Name = TestName Then 

                Console.WriteLine("Let's Play Banana Kong!"  )

                Name = Console.ReadLine()

            Else If Name = "JaJa" Then 

                    Console.WriteLine(" You My Best Friend!?!?!" + Name )

                Else 

                    Console.WriteLine("Eli don't know you" + Name)

                End If 

            LOOP

    End Sub

End Module