0 ( Hi there )
  1 
  2 
  3 
  4 
  5 : hexdump 8 0 do dup i + c@ . ."  " loop ;
  6 : chardump 8 0 do dup i + c@ 127 and dup 127 = if drop 0 then
  7 dup 32 < if drop ." ." else emit then ."  " loop ;
  8 
  9 
 10 
 11 
 12 : (dump) dup . ." : " hexdump ." : " chardump cr ;
 13 : dump (dump) 8 + ;
 14 
 15