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