anchor.diff:      (Mega * 1000000) + Sec.
   
   
  -run(get, KeyGen, _ValueGen, State) ->
  +run(get, KeyGen, _ValueGen,
  +    #state{keyspace=KeySpace, colpath=ColPath, conlevel=ConLevel}=State) ->
       Key = KeyGen(),
  -    case call(State, get, [State#state.keyspace, Key, State#state.colpath, 1]) of
  +    Args = [KeySpace, Key, ColPath, ConLevel],
  +    case call(State, get, Args) of
           {ok, _} ->
               {ok, State};
           {notFoundException} ->
  +            %% DEBUG io:format("g(~p)",[Key]),
  +            io:format("g"),
               {ok, State};
           {'EXIT', {timeout, _}} ->
               {error, timeout, State};
           Error ->
               {error, Error, State}
       end;
  -run(put, KeyGen, ValueGen, State) ->
  -    case call(State, insert, [State#state.keyspace, KeyGen(), State#state.colpath,
  -                              ValueGen(), tstamp(), 1]) of
  +run(put, KeyGen, ValueGen,
  +    #state{keyspace=KeySpace, colpath=ColPath, conlevel=ConLevel}=State) ->
  +    Key = KeyGen(),
  +    Val = ValueGen(),
  +    TS = tstamp(),
  +    Args = [KeySpace, Key, ColPath, Val, TS, ConLevel],
  +    case call(State, insert, Args) of
           {ok, ok} ->
               {ok, State};
           {'EXIT', {timeout, _}} ->
               {error, timeout, State};
           Error ->
               {error, Error, State}
  +    end;
  +run(delete, KeyGen, _ValueGen,
  +    #state{keyspace=KeySpace, colpath=ColPath, conlevel=ConLevel}=State) ->
  +    Key = KeyGen(),
  +    TS = 0, %% TBD: cannot specify a "known" timestamp value?
  +    Args = [KeySpace, Key, ColPath, TS, ConLevel],
  +    case call(State, remove, Args) of
  +        {ok, _} ->
  +            {ok, State};
  +        {notFoundException} ->
  +            %% DEBUG io:format("d(~p)",[Key]),
  +            io:format("d"),
  +            {ok, State};
  +        {'EXIT', {timeout, _}} ->
  +            {error, timeout, State};
  +        Error ->
  +            {error, Error, State}
       end.
  
positive.code:         {ok, Client} ->
              {ok, #state { client = Client,
                            keyspace = Keyspace,
                            colpath = ColPath }};
          {error, Reason} ->
              ?FAIL_MSG("Failed to get a thrift_client for ~p: ~p\n", [TargetHost, Reason])
      end.
  
negative.code: 
  -record(state, { client,
                   keyspace,
                   colpath,
                   conlevel
                 }).
  
  
  %% ====================================================================
  