#!perl -n
print$"x$_."_"x($_*2).$/;for$i(0..$_-1){$h=$i==$_-1?"_":$";print$"x($_-1-$i)."/".$h x($_*2-1)."/".$"x(2*$i)."\\".$/}for$i(0..$_-1){$h=$i==$_-1?"_":$";print$"x$i."\\".$h x($_*2-1)."\\".$"x(2*($_-1-$i))."/".$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).