anchor.diff:      IdList = lists:seq(0, N - 1),
       BlockWithIdList = lists:zip(BlockList, IdList),
   
  +    {K, M, _} = CodingParams,
  +    FullList = lists:seq(0, K + M - 1),
  +    ErasureCombs = comb(Erasure, FullList),
  +    ErasureCombSize = length(ErasureCombs), 
  +
       ?debugFmt('Prepared Blocks for ~p ~p [~p Bytes]', [Coding, CodingParams, BinSize]),
       {ok, #state {coding = Coding,
                    coding_params = CodingParams,
                    bin = Bin,
                    bin_size = BinSize,
                    block_id_list = BlockWithIdList,
  -                 erasure = Erasure}}.
  +                 erasure = Erasure,
  +                 erasure_comb = ErasureCombs,
  +                 erasure_comb_size = ErasureCombSize}}.
   
   run(encode, KeyGen, ValGen, #state{ coding = Coding, coding_params = CodingParams } = State) ->
       _Key = KeyGen(),
  
positive.code:           bin :: binary(),
            bin_size :: integer(),
            block_id_list :: [{binary(), integer()}],
            erasure :: integer()
           }).
  
  filter_block(_BlockList, _Cnt, [], Acc) ->
  
negative.code: filter_block(BlockList, FilterList) ->
      filter_block(BlockList, 0, FilterList, []).
  
  comb(0,_) ->
      [[]];
  comb(_,[]) ->
      [];
  comb(N,[H|T]) ->
      [[H|L] || L <- comb(N-1,T)]++comb(N,T).
  
  new(_Id) ->
      Coding = basho_bench_config:get('coding', vandrs),
      CodingParams = basho_bench_config:get('coding_params', {4,2,8}),
  