anchor.diff:  run_leaf_hf(#mt_config{ leaf_hf = Hf, signature_size = SigSize }, X) ->
       Hash = Hf(X),
       Size = erlang:byte_size(Hash),
  -    case Size > SigSize of
  -        true -> 
  -            Start = Size - SigSize,
  -            <<_:Start/binary, SmallHash:SigSize/binary>> = Hash,
  -            SmallHash;
  -        false -> Hash
  +    if Size > SigSize  -> 
  +           Start = Size - SigSize,
  +           <<_:Start/binary, SmallHash:SigSize/binary>> = Hash,
  +           SmallHash;
  +       true -> Hash
       end.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code:                 || I <- ChildI],
      insert_to_node(Key, {nil, 1 + BranchFactor, [], Interval, NewLeafs}, Config);
  
  insert_to_node(Key, {Hash, Count, [], Interval, Childs} = Node, Config) ->
      {Dest0, Rest} = lists:partition(fun({_, _, _, I, _}) -> intervals:in(Key, I) end, Childs),
      case Dest0 of
          [] -> error_logger:error_msg("InsertFailed!"), Node;
          _ ->
              Dest = hd(Dest0),
              OldSize = node_size(Dest),
              NewDest = insert_to_node(Key, Dest, Config),
              {Hash, Count + (node_size(NewDest) - OldSize), [], Interval, [NewDest|Rest]}
      end.
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec bulk_build(Interval, Params, KeyList) -> MerkleTree when
      is_subtype(Interval,   mt_interval()),
      is_subtype(Params,     mt_config_params()),
      is_subtype(KeyList,    [term()]),
      is_subtype(MerkleTree, merkle_tree()).
  bulk_build(I, Params, KeyList) ->
      InitNode = {nil, 1, [], I, []},
      Config = build_config(Params),
  
negative.code: 
  -spec insert_list([term()], merkle_tree()) -> merkle_tree().
  insert_list(Terms, Tree) ->
      lists:foldl(fun insert/2, Tree, Terms).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  