for$i(<>){$s='/'.'--'x--$i."\\ ";$s.=$"x$_.'\\'.' 'x($i-$_)."/ "for 1..$i;print$i?$s:"\xe2\x97\x87 "}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page