gsub(/./){$*[L-=2]="%#{M-=2}s#$&"%$*[L]}while gets&&L=?~-M=4-$.*2
puts$*-[p]