anchor.diff:  
   % Month, textual, 3 letters; e.g. 'Jan'
   tag_to_value($M, {_,M,_}, _, Context) ->
  -   ucfirst(string:sub_string(monthname(M, Context), 1, 3));
  +   string:sub_string(monthname(M, Context), 1, 3);
   
   % Month without leading zeros; i.e. '1' to '12'
   tag_to_value($n, {_, M, _}, _, _Context) ->
  
positive.code:     lists:flatten(io_lib:format("~2..0B", [N]));
  integer_to_list_zerofill(N) ->
      integer_to_list(N).
  
  ucfirst([First | Rest]) when First >= $a, First =< $z ->
      [First-($a-$A) | Rest];
  ucfirst(Other) ->
      Other.
  
  
negative.code: % Day of the week, textual, 3 letters; e.g. 'Fri'
  tag_to_value($D, Date, _, Context) ->
     Dow = calendar:day_of_the_week(Date),
     string:sub_string(dayname(Dow, Context), 1, 3);
  
  % Month, textual, long; e.g. 'January'
  tag_to_value($F, {_,M,_}, _, Context) ->
     monthname(M, Context);
  
  % '1' if Daylight Savings Time, '0' otherwise.
  tag_to_value($I, _, _, _Context) ->
  