Function f(ByVal x As String, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer, ByRef t As String) As String
If Length(x) < w Then // Definition for Length below
Return t
End If
If y = z Then
t = t + SubStr(x, w, 1) // Definition for SubStr below
z = 1
Else
z = z + 1
End If
w = w + 1
Return f(x, y, z, w, t)
End Function
Function f1(ByVal x As String, ByVal y As Integer) As String
Return (f(x, y, 1, 1, ""))
End Function