a=gets+''
a=$_+$/,a while(i= ~/[^0]/)&&$_[i]-=1
$><<a