anchor.diff:  %%%
   %%% BSD LICENSE
   %%% 
  -%%% Copyright (c) 2010, Michael Truog <mjtruog at gmail dot com>
  +%%% Copyright (c) 2010-2011, Michael Truog <mjtruog at gmail dot com>
   %%% All rights reserved.
   %%% 
   %%% Redistribution and use in source and binary forms, with or without
  
positive.code: 
  %%-------------------------------------------------------------------------
  %% @doc
  %% ===Create a new trie instance.===
  %% @end
  %%-------------------------------------------------------------------------
  
  new() ->
      [].
  
  new([H | T]) ->
      {RootNode, _} = new_instance(H, T),
      RootNode.
  
  new_instance({[_ | _] = S, V}, L) ->
      new_instance_modify(L, new_instance_state(S, V, error));
             
  new_instance([_ | _] = S, L) ->
      new_instance_modify(L, new_instance_state(S, empty, error)).
  
  new_instance_state([], V1, _) ->
      {[], V1};
  
  new_instance_state([H | T], V1, V0)
      when is_integer(H) ->
      {{H, H, {{T, V1}}}, V0}.
  
  new_instance_modify([], State) ->
      State;
  
  new_instance_modify([{[_ | _] = S, V} | T], State) ->
      new_instance_modify(T, modify_state(S, V, State));
  
  new_instance_modify([[_ | _] = S | T], State) ->
      new_instance_modify(T, modify_state(S, empty, State)).
  
  %%-------------------------------------------------------------------------
  %% @doc
  
negative.code: %%% DAMAGE.
  %%%
  %%% @author Michael Truog <mjtruog [at] gmail (dot) com>
  %%% @copyright 2010-2011 Michael Truog
  %%% @version 0.0.2 {@date} {@time}
  %%%------------------------------------------------------------------------
  
  -module(trie).
  -author('mjtruog [at] gmail (dot) com').
  
  %% external interface
  -export([append/3,
           append_list/3,
           erase/2,
           fetch/2,
           fetch_keys/1,
           filter/2,
           find/2,
           find_prefix/2,
           fold/3,
           foldl/3,
           foldr/3,
           from_list/1,
           is_key/2,
           map/2,
           merge/3,
           new/0,
           new/1,
           size/1,
           store/2,
           store/3,
           to_list/1,
           update/3,
           update/4,
           update_counter/3,
           test/0,
           test_size/0,
           test_size/1]).
  