anchor.diff:  constructor TImpForth.Create(aOwner : TComponent);
     begin
       inherited Create(aOwner);
  +    root := TComponent.Create(self); root.name := 'root';
       vm := TInnerVM.Create(self);
       io := kvm.work;
       _model := uevt.TModel.Create(self);
  
positive.code:       data := id;
      end;
      inc(numwds);
    end;
  
  procedure TImpForth.Send( s : TStr );
  
negative.code:   TThunk    = procedure of object;
    TImpStack = GStack<variant>;
    TCmdQueue = TQueue<integer>;
    TTokStr   = TStr;
    TWord	 = record
      // prev : address;
      word : TTokStr;
      code : address;
      data : cardinal
    end;
  
    TInnerVM = class  (TComponent)
  