#!perl -alp
($?,$B,$_)=@F;do{s,,$?%$B,e}while$?/=$B