map{push@_=>$_;$_[1]&&(local$_=sub{$_[1]&&print(
chr$_[0]/$_[1])&&$_->($_[1],$_[0]%$_[1])||$_})->
($_[0],$_[1])&&(@_=());}reverse(($_=sub{my$x;($x
,@_)=(substr($_[0],0,$_[1]),substr($_[0],$_[1]),
@_[2..scalar@_]);$_[0]&&$_->(@_),$x;})->("0499".
"658720369790155500054310845049369000035306986".
"227334970000039810587000031852410900011845729".
"21390008530146116061",9,11,17,20,13,14,14,16));