Imports System
Public Class Test
Public Shared Sub Main()
Dim n As Integer
n = Console.ReadLine
Do While n <> 42
System.Console.WriteLine(n)
n = Console.ReadLine
Loop
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIG4gQXMgSW50ZWdlcgoJCW4gPSBDb25zb2xlLlJlYWRMaW5lCgkJRG8gV2hpbGUgbiA8PiA0MgoJCQlTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUobikKCQkJbiA9IENvbnNvbGUuUmVhZExpbmUKCQlMb29wCglFbmQgU3ViCkVuZCBDbGFzcw==