$_=$"x map$b.='-',2..pop;$t=$t?"$`/$_/$'|
$t
|$_|$'/":"+$b+$_+"while//g;print" $_+$b+
$t
+$b+
"