anchor.diff:  	id,
   	type,
   	stats = []
  -
       }).
   
   -record(print, {
  
positive.code: 
  apply(M,F,As) when is_atom(M), is_atom(F), is_list(As) ->
      lcnt:start(),
      lcnt:clear(),
      Res = erlang:apply(M,F,As),
      lcnt:collect(),
      Res.
  
  apply(Fun) when is_function(Fun) ->
  
negative.code: 	locks    = Locks
      }.
  
  locks2records(Locks) -> locks2records(Locks, []).
  locks2records([], Out) -> Out;
  locks2records([{Name, Id, Type, Stats}|Locks], Out) ->
      Lock = #lock{
  	    name  = Name,
  	    id    = clean_id_creation(Id),
  	    type  = Type,
  	    stats = [ #stats{
  		file  = File,
  