Download this file
// FACTORIAL USING RECURSION ##LIBHDR F(I) I ? I*F(I-1) : 1 .(;I) [ I=0; ++I<=8 @ WRITEF("F(%I1) = %U5*N",I,F(I)) ]