anchor.diff:  tag_to_filename(standard_error) -> "Standard Error";
   tag_to_filename(race) ->
     separator_string($-) ++
  -    "\nPairs of racing instructions";
  +    "~n~nPairs of racing instructions";
   tag_to_filename(Filename) when is_list(Filename) ->
     io_lib:format("Text printed to ~s", [Filename]).
   
  
positive.code:         io:format(Output, "~s~s:~n", [Header, Suffix]),
          separator(Output, $-),
          lists:foreach(ForeachInner, Messages),
          separator(Output, $#)
      end,
    lists:foreach(Foreach, LogMsgs).
  
negative.code:   lists:duplicate(80, Char).
  
  separator(Output, Char) ->
    io:format(Output, "~s~n~n", [separator_string(Char)]).
  
  print_streams(Streams, Output) ->
    Fold =
  