anchor.diff:          r> base !
       then
       drop
  -;
  -
  -: (.s)
  -    depth if
  -        >r recurse r>
  -        dup .
  -    then
  -;
  -
  -: .s
  -    [char] < emit depth 0 .r [char] > emit space
  -    (.s)
   ;
   
   \ #######   TOOLS EXT   #######################################
  
positive.code:         base @ >r hex
          1- 4 rshift 1+
          0 do
              cr dup dup 8 u.r space space
              16 0 do
                  dup c@ hex2. 1+
              loop
  
negative.code: 
  : ?
      @ .
  ;
  
  : (.s)
      depth if
          >r recurse r>
          dup .
      then
  ;
  
  : .s
      [char] < emit depth 0 .r [char] > emit space
      (.s)
  ;
  
  : hex2. ( u -- )
  