$s=$"x($l=2+y///c),$u=_ x$l,$p="|$s|
"x($l/5),print" $u
/$s\\
$p| $_ |
$p\\$u/"for<>