anchor.diff:  
   -spec insert_list([term()], merkle_tree()) -> merkle_tree().
   insert_list(Terms, Tree) ->
  -    lists:foldl(fun(Term, T) -> merkle_tree:insert(Term, T) end, Tree, Terms).
  +    lists:foldl(fun insert/2, Tree, Terms).
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  
positive.code:     Node = case Count > BucketSize of
                 true -> p_bulk_build({nil, 1, [], Interval, []}, Config, Bucket);
                 false -> 
                     Hash = case Count > 0 of
                                true -> run_leaf_hf(Config, erlang:term_to_binary(Bucket));
                                _ -> run_leaf_hf(Config, term_to_binary(0))
                            end,
                     {Hash, Count, ?IIF(KeepBucket, Bucket, []), Interval, []}
             end,
  
negative.code: run_leaf_hf(#mt_config{ leaf_hf = Hf, signature_size = SigSize }, X) ->
      Hash = Hf(X),
      Size = erlang:byte_size(Hash),
      if Size > SigSize  -> 
             Start = Size - SigSize,
             <<_:Start/binary, SmallHash:SigSize/binary>> = Hash,
             SmallHash;
         true -> Hash
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  