map{$a%$_ or$a=-$_ for-($a=$_)..-2;print+('_/'x$a,$"x$a)x($_/$a),$/}1..100