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