BEGIN{FS=x}{for(;i++<NF;n[l]=i){l+=($i<o)-($i>o);a[l]=sprintf(a[l]"%*s",i-n[l],$i);if(l<m)m=l;o=$i}while(n[m])print a[m++]}