Imports System

Public Class hashterminal
   Public Shared Sub Main() 
       Dim n As Integer
dim hash1 as boolean
dim hash2 as string
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
       Loop
   End Sub
End Class