Clone Kip's Xen on stable/6 tree so that I can work on improving FreeBSD/amd64

[FreeBSD/FreeBSD.git] / 6 / contrib / bc / Test / fact.b

define f (x) {

  if (x<=1) return(1)
  return (f(x-1)*x)
}

for (a=1; a<600; a++) b=f(a)
"
"
"b=";b
quit