a:c:0;b:1;thru 35 do[a,c]:[b,1+a*b:c];?princ(c);