non

I p(I q){r p(c((q>9?q-p(q/10):q)+'0')),q*10; }