Imports System
Public Class Test
Public Shared Sub Main()
Dim c As Char
c = Console.ReadLine
Do While c <> " "
System.Console.WriteLine(Char.IsLetterOrDigit(c))
c = Console.ReadLine
Loop
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKSAKICAgICAgIERpbSBjIEFzIENoYXIKICAgICAgIGMgPSBDb25zb2xlLlJlYWRMaW5lCiAgICAgICBEbyBXaGlsZSBjIDw+ICIgIgogICAgICAgICAgIFN5c3RlbS5Db25zb2xlLldyaXRlTGluZShDaGFyLklzTGV0dGVyT3JEaWdpdChjKSkKICAgICAgICAgICBjID0gQ29uc29sZS5SZWFkTGluZQogICAgICAgTG9vcAogICBFbmQgU3ViCkVuZCBDbGFzcw==