anchor.diff:  stop() ->
   	gen_server:call(?MODULE,stop).
   
  +allot(Stat,Size) ->
  +	gen_server:call(?MODULE, { allot, Stat, Size }).
  +
   log(Stat,Value) ->
   	gen_server:call(?MODULE, { log, Stat, Value }).
   
   dump() ->
   	gen_server:call(?MODULE, dump).
   
  +clear(Stat) ->
  +	gen_server:call(?MODULE, { clear, Stat }).
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   % Private APU
   %
   
   init([]) ->
  -	{ ok, #stats{ windows = [], size = 10 }}.
  +	{ ok, #stats{ windows = [], sizes = [] }}.
   
   handle_call(stop,_From,Stats) ->
   	{ stop, stopped, Stats };
  
positive.code: -author({ "David J Goehrig", "dave@dloh.org" }).
  -copyright(<<"© 2016 David J Goehrig"/utf8>>).
  -behavior(gen_server).
  -export([ start_link/0, stop/0, log/2, dump/0 ]).
  -export([ code_change/3, handle_call/3, handle_cast/2, handle_info/2, init/1,
  	terminate/2 ]).
  
  -record(stats, { windows, size }).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % Public APU
  
negative.code: 		Windows),
  	{ reply, ok, Stats };
  
  handle_call({ allot, Stat, Size}, _From, Stats) ->
  	{ reply, ok, allocate(Stats,Stat,Size) };
  
  handle_call({ log, Stat, Value }, _From, Stats) ->
  	{ reply, ok, rotate(Stats,Stat,Value) };
  
  handle_call({ clear, Stat }, _From, Stats) ->
  	{ reply, ok, reset(Stats,Stat) };
  
  handle_call(Message,_From,Stats) ->
  	io:format("[stats] unknown message ~p~n", [ Message ]),
  