(while(read)=> x(print((rec,n(if(= n 0)1(*,(- n 1)(/(+ n x)n))))x)))