Sub AppStart (Args() As String)
Dim i = 1 As Int
For i = 1 To OneHundredThousand(i)
Next
Log("for loop completed " & i)
End Sub
Sub OneHundredThousand(i As Int) As Int
Dim s As Char
If i > 1 Then s = "s"
Log("This function was called " & i & " time" & s)
Return i+5
End Sub