print+(map$"x($d-$_)."/".($d-$_?$":"_")x2x$_."\\ ",0..($d=(<>-1)/3)),(map"|".$"x$_."\\".$"x2x($d-$_)."/".$"x$_."| ",0..--$d),map"|".$"x($e=$d-$_)."/".($e?$":"_")x2x$_."\\".$"x$e."| ",0..$d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).