anchor.diff:  %%%-------------------------------------------------------------------
   -module(motorcycles2html).
   
  --include("xmerl.hrl").
  +-include_lib("xmerl/include/xmerl.hrl").
   
   -import(xmerl_xs, 
   	[ xslapply/2, value_of/1, select/2, built_in_rules/2 ]).
  
positive.code:     WS = "\n    ",
      Fun=fun([H|T],Acc,F)->
  		F(T,[H,WS|Acc],F);
  	   ([],Acc,F)->
  		lists:reverse([WS|Acc])
  	end,
      if length(SortedRefed) > 0 ->
  
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,
  