Imports System.Collections.Generic
Imports System.Console
Module Program
    Sub Main()

        Dim ans As Integer = 0

        Console.WriteLine(ans)
        Console.ReadLine()
    End Sub
    Function GetInts(Str As String()) As Integer()
        Dim s = Str, r(UBound(s)) As Integer
        For i As Integer = 0 To UBound(s) : r(i) = s(i) : Next i
        GetInts = r
    End Function
    Function Gets() As String()
        Gets = Console.ReadLine().Split(vbCrLf)
    End Function

End Module
