(for i 10000 10300(= r i n i j 1)(while(> n 1)(++ j)(if #0=(<(mod n j)1)(-- r(/ r j)))(while #0#(zap / n j)))prn.r)