程序自我调用

• 求阶乘

function fac,x
  if x eq 0 then return,1 else return,double(x)*fac(x-1)
end