y/ox./-09/for@_=<>;
for(1..32){chomp,s/(?<=(\d))(.)/$2>$1?$1+1:$2/egfor@_;
$i=@D=();(map$D[$i].=chop,@_),$i++for@_;@_=@D}$,=$/,print@_