read-num
dec
w( "0" "/--\\\n" "/-=-\\\n| 0" )
get
dup
reverse
tail