anchor.diff:        },
     [ SecondsATF
     , MinutesATF
  -  , QuartersATF
  +  , TensATF
     , HoursATF
  -  , DayQuartersATF
     , DaysATF
     , MonthsATF
     , YearsATF
  
positive.code:   SecondsSplitFun = fun(S) -> S end,
    SecondsATF =
      #time_formatter{
         threshold  = 1 * 60,
         rounding   = 1,
         split_fun  = SecondsSplitFun,
         one_format = "~ws"
  
negative.code:   SecondsSplitFun = fun(_) -> 1 end,
    SecondsATF =
      #time_formatter{
         threshold  = 60 * 1,
         rounding   = 60,
         split_fun  = SecondsSplitFun,
         one_format = "<~wm"
        },
    MinutesSplitFun = fun(Minutes) -> Minutes end,
    MinutesATF =
      #time_formatter{
         threshold  = 30 * 1,
         rounding   = 10,
         split_fun  = MinutesSplitFun,
         one_format = "~wm"
        },
    TensSplitFun =
      fun(Tens) ->
          case Tens < 6 of
            true -> Tens * 10;
            false -> {Tens div 6, (Tens rem 6) * 10}
          end
      end,
    TensATF =
      #time_formatter{
         threshold  = 2 * 6,
         rounding   = 6,
         split_fun  = TensSplitFun,
         one_format = "~wm",
         two_format = "~wh~2..0wm"
        },
    HoursSplitFun =
  