anchor.diff:    lists:duplicate(80, Char).
   
   separator(Output, Char) ->
  -  io:format(Output, "~s~n", [separator_string(Char)]).
  +  io:format(Output, "~s~n~n", [separator_string(Char)]).
   
   print_streams(Streams, Output) ->
     Fold =
  
positive.code: tag_to_filename(standard_error) -> "Standard Error";
  tag_to_filename(race) ->
    separator_string($-) ++
      "\nPairs of racing instructions";
  tag_to_filename(Filename) when is_list(Filename) ->
    io_lib:format("Text printed to ~s", [Filename]).
  
  
negative.code:   orddict:fold(Fold, ok, Streams).
  
  print_stream(Tag, Buffer, Output) ->
    io:format(Output, tag_to_filename(Tag) ++ "~n", []),
    io:format(Output, "~s~n", [Buffer]),
    case Tag =/= race of
      true ->
        io:format(Output, "~n", []),
  