anchor.diff:  
   s(T) when is_float(T) -> term2string("~.4f", [T]);
   s(T) when is_list(T)  -> term2string("~s", [T]);
  -s(T)                  -> term2string("~p", [T]).
  +s(T)                  -> term2string(T).
   
   strings(Strings) -> strings(Strings, []).
   strings([], Out) -> Out;
  
positive.code: 	{combine,    true},
  	{thresholds, [{tries, 0}, {colls, 0}, {time, 0}] },
  	{locations,  false}],
      Opts       = options(InOpts, Default),
      Combos     = combine_classes(Locks, proplists:get_value(combine, Opts)),
      Printables = locks2print(Combos, State#state.duration),
      Filtered   = filter_print(Printables, Opts),
  
  
negative.code: handle_call({set, data, Data}, _From, State)->
      {reply, ok, data2state(Data, State)};
  
  handle_call({set, duration, Duration}, _From, State)->
      {reply, ok, State#state{ duration = Duration}};
  
  % file operations
  handle_call({load, Filename}, _From, State) ->
      case file:read_file(Filename) of
  