anchor.diff:       ".\n\n"].
   
   format_initial_msg_record(Indent, MsgName, MsgDef, Defs) ->
  -    MsgNameQLen = iolist_size(f("~p", [MsgName])),
  +    MsgNameQLen = flength("~p", [MsgName]),
       f("#~p{~s}",
         [MsgName, format_initial_msg_fields(Indent+MsgNameQLen+2, MsgDef, Defs)]).
   
  
positive.code: f(F)   -> f(F,[]).
  f(F,A) -> io_lib:format(F,A).
  
  file_read_file(FileName, Opts) ->
      file_op(read_file, [FileName], Opts).
  
  
negative.code:              #field{occurrence=repeated} ->
                   indent(Indent, f("~p = []", [FName]));
               #field{type={msg,FMsgName}} ->
                   FNameQLen = flength("~p", [FName]),
                   {Type, FMsgDef} = lists:keyfind(Type, 1, Defs),
                   indent(Indent, f("~p = ~s",
                                    [FName,
  