anchor.diff:     ," They print sorted and formatted info from aggregate/2."
      ,""
      ,"calls/0 -> ok"
  +   ," prints the number of calls to the various alloc functions."
  +   ," there are 4 calls; allocate, deallocate, reallocate and free,"
  +   ," and three flavours; mseg (memory mmapped), sys (system malloc),"
  +   ," and allocator specific."
  +   ,""
      ,"allocs(SortColumn,TagsToKeep) -> ok"
      ,"allocs(SortColumn) -> allocs(SortColumn,[allocator,group])"
      ,"allocs() -> allocs(allocd,[allocator,group])"
  
positive.code: printh(AggInds,Cols) ->
    io:fwrite("~-33w~8w~8w~8w~n",[AggInds]++tl(Cols)).
  print({K,T,U,F}) ->
    io:fwrite("~-33w~8.2f~8.2f~8.2f~n",[K,T,U,F]).
  
  present({K,V},A) ->
    case {A,lists:reverse(K)} of
  
negative.code:   end.
  
  format(NK,V,V0) ->
    {lists:reverse(NK),V0,V,divide(V,V0)}.
  
  divide(_V,0) -> 1.0;
  divide(V,V0) -> V/V0.
  