10 10 25
rem let x0 = 10
let x1 = 1
let x2 = 1
if x1 >= x1 goto 9
while x0 >= x1 exit 9
let x2 = x2 * x0
let x0 = x0 - x1
next
rem output should be 1
end
