(dotimes`201(set'n(*(find 0'#.(butlast(loop
collect(/(set'n(read))(read))while(listen))):key(lambda(f)(mod n(/ f))))(princ n)))(terpri))