(while(print(do((r 0(+(*(expt 10 b)(mod x(inc! b)))r))(x(read)(div x b))(b 1))((< x 1)r))))