1 2 3 4 5 6 7 8 9 10
define f (x) { if (x<=1) return(1) return (f(x-1)*x) } for (a=1; a<600; a++) b=f(a) "length(b)= "; length(b) quit