Co9eff[n_, b_: 10] := Mod[n, b - 1];