($define! ** ($lambda (x y)($define! helper ($lambda (y agg) ($if (=? y 0) agg (helper (- y 1) (* x agg)))))(helper y 1)))
Body for helper is :
(Environment.Item[y] = input.Item[0])
(Environment.Item[agg] = input.Item[1])
{ ... } Start:
Test: Convert((=?.Invoke((=? y 0).Skip(1).EvaluateAll(Environment)) As Boolean))
IfTrue: Evaluate(agg, Environment)
(Environment.Item[y] = Environment.Evaluate((- y 1)))
(Environment.Item[agg] = Environment.Evaluate((* x agg)))
gotoStart
null
Body for ** is :
(Environment.Item[x] = input.Item[0])
(Environment.Item[y] = input.Item[1])
{ ... } Start:
default(Void)
helper.Invoke((helper y 1).Skip(1).EvaluateAll(Environment))