(while:prn:+(nearest(read)2)1)