anchor.diff:  % Day of the week, textual, 3 letters; e.g. 'Fri'
   tag_to_value($D, Date, _, Context) ->
      Dow = calendar:day_of_the_week(Date),
  -   ucfirst(string:sub_string(dayname(Dow, Context), 1, 3));
  +   string:sub_string(dayname(Dow, Context), 1, 3);
   
   % Month, textual, long; e.g. 'January'
   tag_to_value($F, {_,M,_}, _, Context) ->
  -   ucfirst(monthname(M, Context));
  +   monthname(M, Context);
   
   % '1' if Daylight Savings Time, '0' otherwise.
   tag_to_value($I, _, _, _Context) ->
  
positive.code: % Month abbreviation in Associated Press style. Proprietary extension.
  tag_to_value($N, {_,M,_}, _, Context) when M =:= 9 ->
     % Special case - "Sept."
     ucfirst(string:sub_string(monthname(M, Context), 1, 4)) ++ ".";
  tag_to_value($N, {_,M,_}, _, Context) when M < 3 orelse M > 7 ->
     % Jan, Feb, Aug, Oct, Nov, Dec are all
     % abbreviated with a full-stop appended.
     ucfirst(string:sub_string(monthname(M, Context), 1, 3)) ++ ".";
  tag_to_value($N, {_,M,_}, _, Context) ->
     % The rest are the fullname.
     ucfirst(monthname(M, Context));
  
  % Difference to Greenwich time in hours; e.g. '+0200'
  tag_to_value($O, Date, Time, _Context) ->
  
negative.code:     lists:flatten(io_lib:format("~2..0B", [N]));
  integer_to_list_zerofill(N) ->
      integer_to_list(N).
  