map{print$b='|'x($'-abs),$_?'--'x abs.'+'^'':$",$b,$/}-$_..$_*//for<>