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