map{$a%$_ or$a=-$_ for-($a=$_)..-2;print+('_/'x$a,$"x$a)x($_/$a),$/}1..100
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page