10 10 25
rem let x0 = 10
let x1 = 1
let x2 = 1
while x0 >= x0 exit 9
if x1 >= x1 goto -2
let x2 = x2 * x0
let x0 = x0 - x1
next
rem output should be stack overflow executing line 3
end
