anchor.diff:      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))
  +                   Hash = if Count > 0 ->
  +                                 run_leaf_hf(Config, term_to_binary(Bucket));
  +                             true ->
  +                                 run_leaf_hf(Config, term_to_binary(0))
                             end,
                      {Hash, Count, ?IIF(KeepBucket, Bucket, []), Interval, []}
              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: 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.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  