(for n 0 1e3((rfn r,f([do(if(<= _ n)(r(+ .,1)_))(pr:trunc:/(mod n _)f)](* .,f)))1 1)(prn))