anchor.diff:              Value = FetchDV#dv.value,
               Next = FetchDV#dv.next,
               Type = FetchDV#dv.type,
  -            put(Type, Value, Next, FromId, Table),
  +            write(Type, Value, Next, FromId, Table),
               reply_to_all([FromP], {ok, Next});
           true ->
               [{_,DV}] = ets:lookup(Table, FromId),
  
positive.code:     [{_, DV}] = ets:lookup(Table, Id),
      Next = DV#dv.next,
      Type = DV#dv.type,
      put(Type, Value, Next, Id, Table),
      {noreply, State};
  
  handle_command({wait_needed, Id}, From,
  
negative.code:                         _ ->
                              case is_inflation(V#dv.type, V#dv.value, Value) of
                                  true ->
                                      write(V#dv.type, Value, NextKey, Id, Table),
                                      {reply, {ok, NextKey}, State};
                                  false ->
                                      {reply, error, State}
                              end
                      end;
                  false ->
                      write(V#dv.type, Value, NextKey, Id, Table),
                      {reply, {ok, NextKey}, State}
              end
          end;
  