anchor.diff:    {vacmViewTreeFamily,
      ViewIndex, ViewSubtree, ViewStatus, ViewMask}) ->
       io:format(
  -      Fd, "{vacmViewTreeFamily, \"~s\", ~w, ~w, ~w}.~n",
  +      Fd, "{vacmViewTreeFamily, ~p, ~w, ~w, ~w}.~n",
         [ViewIndex, ViewSubtree, ViewStatus, ViewMask]);
   do_write_vacm_conf(_Fd, Crap) ->
       error({bad_vacm_config, Crap}).
  
positive.code:    PrivP, PrivKeyC, OwnPrivKeyC,
     Public, AuthKey, PrivKey}) ->
      io:format(Fd, "{", []),
      io:format(Fd, "\"~s\", ", [EngineID]),
      io:format(Fd, "\"~s\", ", [UserName]),
      io:format(Fd, "\"~s\", ", [SecName]),
      io:format(Fd, "~w, ",     [Clone]),
      io:format(Fd, "~w, ",     [AuthP]),
      do_write_usm2(Fd, AuthKeyC, ", "),
  
negative.code:   {vacmSecurityToGroup,
     SecModel, SecName, GroupName}) ->
      io:format(
        Fd, "{vacmSecurityToGroup, ~w, ~p, ~p}.~n",
        [SecModel, SecName, GroupName]);
  do_write_vacm_conf(
    Fd,
    {vacmAccess,
     GroupName, Prefix, SecModel, SecLevel, Match, RV, WV, NV}) ->
      io:format(
        Fd, "{vacmAccess, ~p, ~p, ~w, ~w, ~w, "
        "~p, ~p, ~p}.~n",
        [GroupName, Prefix, SecModel, SecLevel,
         Match, RV, WV, NV]);
  do_write_vacm_conf(
  