anchor.diff:  
   run(decode, KeyGen, _ValGen, #state{coding = Coding, coding_params = CodingParams, 
                                      bin_size = BinSize, block_id_list = BlockWithIdList,
  -                                   erasure = Erasure } = State) ->
  -    _Key = KeyGen(),
  -    {K, _, _} = CodingParams,
  -    Selected = lists:sublist(BlockWithIdList, Erasure + 1, Erasure + K),
  -%    ShuffleList = [X||{_,X} <- lists:sort([ {random:uniform(), N} || N <- BlockWithIdList])],
  -%    Selected = lists:sublist(ShuffleList, 1, K),
  +                                   erasure_comb = ErasureCombs, erasure_comb_size = ErasureCombSize } = State) ->
  +    Key = KeyGen(),
  +    {K, M, _} = CodingParams,
  +    ErasureList = lists:nth(Key rem ErasureCombSize + 1, ErasureCombs),
  +    FullList = lists:seq(0, K + M - 1),
  +    RemainList = lists:subtract(FullList, ErasureList),
  +    AvailList = lists:sublist(RemainList, 1, K),
  +    Selected = filter_block(BlockWithIdList, AvailList),
       case leo_jerasure:decode(Selected, BinSize, Coding, CodingParams) of
           {error, Cause} ->
               {error, Cause, State};
  
positive.code: filter_block(BlockList, FilterList) ->
      filter_block(BlockList, 0, FilterList, []).
  
  new(_Id) ->
      Coding = basho_bench_config:get('coding', vandrs),
      CodingParams = basho_bench_config:get('coding_params', {4,2,8}),
  
negative.code:     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_comb = ErasureCombs,
                   erasure_comb_size = ErasureCombSize}}.
  
  run(encode, KeyGen, ValGen, #state{ coding = Coding, coding_params = CodingParams } = State) ->
      _Key = KeyGen(),
  