anchor.diff:  
   get_small_sha() ->
       (fun(B) ->
  +             DestSize = 2,
                Sha = crypto:sha(B),
  -             Start = erlang:byte_size(Sha) - 2,
  -             <<_:Start/binary, SmallSha:2/binary>> = Sha,
  +             Start = erlang:byte_size(Sha) - DestSize,
  +             <<_:Start/binary, SmallSha:DestSize/binary>> = Sha,
                SmallSha
        end).
   
  
positive.code:                erlang:atom_to_list(RBr)]),
      NNNFreeId.
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Local Functions
  
negative.code:          is_empty/1, is_leaf/1, is_merkle_tree/1, 
           get_bucket/1, get_hash/1, get_interval/1, get_childs/1, get_root/1,
           get_item_count/1, get_bucket_size/1, get_branch_factor/1,
           get_opt_bucket_size/3,
           store_to_DOT/2, store_graph/2]).
  
  % exports for tests
  