anchor.diff:  reply(Key, <<"set">>, Proplist) ->
       Value = pval(<<"value">>, Proplist),
   
  -    case yasa:set(Key, Value) of
  +    case yasa:set(Key, to_int(Value)) of
           {error, Reason} ->
               {500, [{<<"error">>, ?l2b(Reason)}]};
           Reply ->
  
positive.code:     Reply = to_range(Size, Period),
      Reply.
  
  to_range(N, Period) ->
      [timestamp() - seconds_in(N, Period), timestamp()].
  
  
negative.code:     <<_:Start/binary, Match:End/binary, _/binary>> = String,
      parse_matches(String, Rest, Acc ++ [Match]).
  
  pval(X, Req) when element(1, Req) == http_req ->
      {Val, _} = cowboy_http_req:qs_val(X, Req),
      Val;
  