(while:prn(= r[if(exact:/ _)_(+""(= e(/:+(trunc:/ _)1))" + "(r:- _ e))]f(read))" = "r.f)