($t,$b)=glob<>;

sub f{
	my$d=$_%-$b;
	if($_){
		local$_=($_-$d)/$b;
		f();
		print$d;
	}
}

for(<>){
	f;
	print$/;
}