anchor.diff:            write_words/1,
             key/1,
             most_frequent/1,
  +          dump/1,
             count_words/2
          ]).
   
  
positive.code:         true ->
              Large
      end.
  
negative.code:         end, 
          0, 
          qlc:q([W || W <- mnesia:table(webgnosus_words)])).
  
  %%--------------------------------------------------------------------
  %% Func: dump/1
  %% Description: dump word frequencies to file after sorting
  %%--------------------------------------------------------------------
  dump(File) ->      
      case file:open(File, write) of
          {ok, Fh} ->
              lists:foreach(
                  fun(W) ->
                      io:format(Fh, "~p.~n", [W])
                  end,
                  sort_by_count(find(all))),
              file:close(Fh);
          Error ->
              Error
      end.
  
  %%>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  %% attributes
  