anchor.diff:      WS = "\n    ",
       Fun=fun([H|T],Acc,F)->
   		F(T,[H,WS|Acc],F);
  -	   ([],Acc,F)->
  +	   ([],Acc,_F)->
   		lists:reverse([WS|Acc])
   	end,
       if length(SortedRefed) > 0 ->
  
positive.code: %%%-------------------------------------------------------------------
  -module(motorcycles2html).
  
  -include("xmerl.hrl").
  
  -import(xmerl_xs, 
  	[ xslapply/2, value_of/1, select/2, built_in_rules/2 ]).
  
negative.code: %% 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={_,_} <- L],
      SortedTS = lists:keysort(1,Tuples),
      InsertRefName_UnWrap=
  	fun([{[Name],V}|Rest],Name,F)->
  		[V|F(Rest,Name,F)];
  	   ([{[Name],V}|Rest],_PreviousName,F) ->
  		[["<a name=\"",Name,"\"></>"],V|F(Rest,Name,F)];
  	   ([],_,_) -> []
  	end,
  