anchor.diff:      [trim_(bear:get_statistics(Acc)),
        trim(timer:tc(folsom_metrics, get_histogram_statistics, [Name]))].
   
  +folsom_update_p(Name, Ps, N) ->
  +    pmap(Ps, fun() ->
  +		     folsom_update_p_(N, Name)
  +	     end).
  +
  +my_slide_update_p(Name, Ps, N) ->
  +    pmap(Ps, fun() ->
  +		     my_slide_update_p_(N, Name)
  +	     end).
  +
  +folsom_update_p_(N, Name) when N > 0 ->
  +    ok = folsom_metrics:notify(Name, 1),
  +    folsom_update_p_(N-1, Name);
  +folsom_update_p_(_, _) ->
  +    ok.
  +
  +my_slide_update_p_(N, Name) when N > 0 ->
  +    true = update(Name, exometer:timestamp(), 1, N rem 3 == 0),
  +    my_slide_update_p_(N-1, Name);
  +my_slide_update_p_(_, _) ->
  +    ok.
  +
   
   new_h(Name, W) ->
       Me = self(),
  
positive.code: 	    error(timeout)
      end.
  
  update_h(N, Name, Sleep, ReadInt, ReadInt0, Acc) when N > 0 ->
      {T,true} = timer:tc(?MODULE,update,[Name, 1, true]),
      Acc1 = [T|Acc],
      {R, ReadInt1, Acc2} =
  	if ReadInt =< 0 ->
  		{[trim_(bear:get_statistics(Acc1)),
  		  trim(timer:tc(?MODULE,get_histogram_statistics, [Name]))],
  		 ReadInt0, []};
  	   true ->
  		{[], ReadInt - 1, Acc1}
  	end,
      timer:sleep(Sleep),
      R ++ update_h(N-1, Name, Sleep, ReadInt1, ReadInt0, Acc2);
  update_h(_, Name, _, _, _, Acc) ->
      [trim_(bear:get_statistics(Acc)),
       trim(timer:tc(?MODULE, get_histogram_statistics, [Name]))].
  
  trim({T,H}) ->
      {T, trim_(H)}.
  
  trim_(Hist) ->
      [{K,V} || {K,V} <- Hist,
  	      lists:member(K, [min,max,median])].
  
  update(N, Value, true) ->
      call(N, {update, Value});
  
negative.code: 
  
  folsom_slide(W, Int) ->
      reset(folsom),
      ok = folsom_metrics:new_histogram(Name = folsom_slide, slide, W),
      try
  	update_hist(_N = W * 10 * 5, Name, _Sleep = 10, _ReadInt = Int,  Int, [])
  