$(i=FS=_)=$0{for(;i<NF;a[Y-i]=s$++i)for(s=a[y=Y-i];length(s)/2<Y+i;)s=s" "
Y++}END{for(;y++<53;)if(p=a[y-i])print p}