(for n 2 8(for d 1 9(n-of n pr.d)(prn)))