anchor.diff:  %% sorts on the bike name element, unwraps the bike information and
   %% inserts a line feed and indentation on each bike element.
   sort_by_manufacturer(L) ->
  -    Tuples=[X1||X1={H,T} <- L],
  +    Tuples=[X1||X1={_,_} <- L],
       SortedTS = lists:keysort(1,Tuples),
       InsertRefName_UnWrap=
   	fun([{[Name],V}|Rest],Name,F)->
   		[V|F(Rest,Name,F)];
  -	   ([{[Name],V}|Rest],PreviousName,F) ->
  +	   ([{[Name],V}|Rest],_PreviousName,F) ->
   		[["<a name=\"",Name,"\"></>"],V|F(Rest,Name,F)];
   	   ([],_,_) -> []
   	end,
  
positive.code:     end.
  
  make_ref([]) -> [];
  make_ref([H]) when atom(H) ->
      "<ul><a href=\"#"++atom_to_list(H)++"\">"++atom_to_list(H)++"</a></ul>";
  make_ref([H]) when list(H) ->
      "<ul><a href=\"#"++H++"\">\s"++H++"</a></ul>";
  make_ref([H|T]) when atom(H) ->
      ["<ul><a href=\"#"++atom_to_list(H)++"\">\s"++atom_to_list(H)++",\n</a></ul>"
       |make_ref(T)];
  make_ref([H|T]) when list(H) ->
      ["<ul><a href=\"#"++H++"\">\s"++H++",\n</a></ul>"|make_ref(T)].
  
  
negative.code: %%%-------------------------------------------------------------------
  -module(motorcycles2html).
  
  -include_lib("xmerl/include/xmerl.hrl").
  
  -import(xmerl_xs, 
  	[ xslapply/2, value_of/1, select/2, built_in_rules/2 ]).
  