$a=<>;for(3..length$a){$r="";$z=substr$a,$i,1;$c=substr$a,++$i,1;while($z!=0){$r=$z%$c.$r;$z=int$z/$c}$b+=$r}print$b