( dump DAY )
: .0
  >r 0 <# #s #> r> over - 0 max dup 
    if 0 do [char] 0 emit loop
    else drop then type 
;

: >prt
  dup bl u< if drop [char] . then
;

: ptype
  0 do dup c@ >prt emit 1+ loop drop
;

: dump ( addr u -- ) \ 94 tools
  dup 0= if 2drop exit then
  base @ >r hex
  dup
  7 + 3 rshift ( 8 u/) 0 do
    >r
    dup 4 .0
    space dup 8 r@ min 0
      do  i 1 and 0= if space then
        dup c@ 2 .0 ( space) 1+
      loop swap 8 r@ min space ptype cr
    r> 8 - 
  loop 2drop r> base !
;