Download this file
1 2 3 4 5 6 7
+libhdr f(i) i?i*f(i-1),1 .(i) [ i=0;++i<=10 @ writef("f(%i2)=%i6*n",i,f(i)) ]