anchor.diff:            {reply, {Value, V#dv.next}, State};
            true ->
             if Lazy == true ->
  -                WT = lists:append(V#dv.waitingThreads, [From]),
  -                V1 = V#dv{waitingThreads=WT},
  +                WT = lists:append(V#dv.waiting_threads, [From]),
  +                V1 = V#dv{waiting_threads=WT},
                   ets:insert(Table, {X, V1}),
   		replyToAll([Creator],ok),
                   {noreply, State};
             true ->
   		io:format("Process: ~w waiting for ~w~n",[From, X]),
  -                WT = lists:append(V#dv.waitingThreads, [From]),
  -                V1 = V#dv{waitingThreads=WT},
  +                WT = lists:append(V#dv.waiting_threads, [From]),
  +                V1 = V#dv{waiting_threads=WT},
                   ets:insert(Table, {X, V1}),
   	  	%io:format("End process: ~w waiting for ~w~n",[From, X]),
                   {noreply, State}
  
positive.code: 
  put(Value, Next, Key, Table) ->
      [{_Key,V}] = ets:lookup(Table, Key),
      Threads = V#dv.waitingThreads,
      BindingList = V#dv.bindingList,
      V1 = #dv{value= Value, next =Next, lazy=false, bounded= true},
      ets:insert(Table, {Key, V1}),
  
negative.code:     if V#dv.bounded == true ->
  	{reply, ok, State};
       true ->
      	case V#dv.waiting_threads of [_H|_T] ->
          	{reply, ok, State};
         		 _ ->
          	ets:insert(Table, {Id, V#dv{lazy=true, creator=From}}),
  