anchor.diff:  
   : ?
       @ .
  +;
  +
  +: (.s)
  +    depth if
  +        >r recurse r>
  +        dup .
  +    then
  +;
  +
  +: .s
  +    [char] < emit depth 0 .r [char] > emit space
  +    (.s)
   ;
   
   : hex2. ( u -- )
  
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:         r> base !
      then
      drop
  ;
  
  \ #######   TOOLS EXT   #######################################
  