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
System.Console.WriteLine(test("patient","101"))
End Sub
Public Function Test(byVal t as String, byVal p as string) as string
dim retVal as String ="test"
return retVal
end Function
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIG4gQXMgSW50ZWdlcgoJCW4gPSBDb25zb2xlLlJlYWRMaW5lCgkJRG8gV2hpbGUgbiA8PiA0MgoJCQlTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUobikKCQkJbiA9IENvbnNvbGUuUmVhZExpbmUKCQlMb29wCgkJU3lzdGVtLkNvbnNvbGUuV3JpdGVMaW5lKHRlc3QoInBhdGllbnQiLCIxMDEiKSkKCUVuZCBTdWIKCQoJUHVibGljIEZ1bmN0aW9uIFRlc3QoYnlWYWwgdCBhcyBTdHJpbmcsIGJ5VmFsIHAgYXMgc3RyaW5nKSBhcyBzdHJpbmcKCSBkaW0gcmV0VmFsIGFzIFN0cmluZyA9InRlc3QiCgkgcmV0dXJuIHJldFZhbAoJZW5kIEZ1bmN0aW9uCgkKRW5kIENsYXNzCg==