(= l(pair(range 1 1e4)min))(for i 1 169(= d 0 l(rem[<(mod(++ d)l.i)1]l)))(apply prs l)