anchor.diff:  from(H, [_ | T]) -> from(H, T);
   from(_, []) -> [].
   
  +atom2list(A) ->
  +    lists:flatten(io_lib:format("~w", [A])).
  +
   chomp([]) ->
       [];
   chomp([$\n]) ->
  
positive.code:     TestDataLine1BinUtf = unicode:characters_to_binary(TestDataLine1),
      TestDataLine1BinLatin = list_to_binary(TestDataLine1),
  
      N2List = create_nodename(), 
      MyNodeList = atom_to_list(node()), 
      register(io_proto_suite,self()),
      AM1 = spawn(?MODULE,Machine,
  		[MyNodeList, "io_proto_suite", N2List]),
  
negative.code:     TestDataLine1BinUtf = unicode:characters_to_binary(TestDataLine1),
      TestDataLine1BinLatin = list_to_binary(TestDataLine1),
  
      {ok,N2List} = create_nodename(),
      MyNodeList = atom2list(node()),
      register(io_proto_suite,self()),
      AM1 = spawn(?MODULE,Machine,
  		[MyNodeList, "io_proto_suite", N2List]),
  