map{$l=$a[$j=--$i]=~y/ //c;0while($c=($l-18)**2-$a[$j++]=~/_$/*9+($l-$$j[2])**2/2+"@$j")<"@$i$<0"?@$i=($c,$j,$l):0,$j&&($l+=length$a[$j])<20}@a=<>=~/^| +\S*/g;0while$a[$i=$$i[1]]=~s/ +/
/;print@a