11 lines
190 B
Text
11 lines
190 B
Text
Prototype.i fun(x.i)
|
|
|
|
Procedure.i quark(z.i)
|
|
Debug "Quark "+Str(z) : ProcedureReturn z-1
|
|
EndProcedure
|
|
|
|
Procedure rep(q.fun,n.i)
|
|
Repeat : n=q(n) : Until n=0
|
|
EndProcedure
|
|
|
|
rep(@quark(),3)
|