Imports System
Public Module Module1
Public Sub Main()
dim x as string
do
console.WriteLine(x)
x= console.ReadLine()
loop until x="B"
End Sub
End Module