anchor.diff:  
   %% this module reads the mime.types file and creates
   %% the mod mime_types.erl
  +%% default type is text/plain
   
   compile() ->
       R = (catch c()),
  
positive.code:       fun({Ext, MT}) ->
  	      io:format(Fd, "t(~p) -> {regular, ~p};~n", [nonl(Ext), MT])
        end, L),
      io:format(Fd, "t(_) -> {regular, \"application/octet-stream\"}.~n~n~n", []),
  
  
  
  
negative.code: 			[nonl(lists:reverse(Ext)), MT])
        end, L),
      io:format(Fd, "revt(_) -> {regular, 
                                 \"text/plain\"}.~n~n~n", []).
  
      
  		  
  