s/ |$/ |$&/g,($a=$b="| $_
")=~s/\S./| /g,s/\S\S/ |/g,print$",_ x y/| -~/|_/,"
$a$b|_$_"for<>