#!perl -pal
($_,$a,$b)=('',@F);do{$_=$a%$b.$_}while$a=int($a/$b);