f:fix;sum((sum(?princ(if j=f(i/3)-f(i/5)then i elseif i>9then"  "else" "),i,1,f(min(j*7.5-mod(j,2),95)+5)),newline()),j,0,14);