anchor.diff:      ).
   
   batch_1_test() ->
  -    ?assertEqual([[1, 2, 3, 4], [5, 6, 7, 8], [9]],
  +    ?assertEqual(lists:reverse([[1, 2, 3, 4], [5, 6, 7, 8], [9]]),
                    create_batches([1, 2, 3, 4, 5, 6, 7, 8, 9], 4)).
   
   batch_2_test() ->
  -    ?assertEqual([[1, 2, 3, 4], [5, 6, 7, 8], [9, 10]],
  +    ?assertEqual(lists:reverse([[1, 2, 3, 4], [5, 6, 7, 8], [9, 10]]),
                    create_batches([1, 2, 3, 4, 5, 6, 7, 8, 9, 10], 4)).
   
   batch_3_test() ->
  -    ?assertEqual([[1, 2, 3], [4, 5, 6], [7, 8, 9]],
  +    ?assertEqual(lists:reverse([[1, 2, 3], [4, 5, 6], [7, 8, 9]]),
                    create_batches([1, 2, 3, 4, 5, 6, 7, 8, 9], 3)).
   
   batch_undersized1_test() ->
  
positive.code:                  create_batches([1, 2, 3, 4, 5, 6], 7)).
  
  batch_almost_undersized_test() ->
      ?assertEqual([[1, 2, 3, 4, 5], [6]],
                   create_batches([1, 2, 3, 4, 5, 6], 5)).
  -endif.
  
negative.code:     RowSizeFudged = (SampleRowSize * 10) div 9,
      MaxBatchSize div RowSizeFudged.
  
  create_batches(Rows, MaxSize) ->
      create_batches(Rows, MaxSize, []).
  
  create_batches([], _MaxSize, Accum) ->
      Accum;
  create_batches(Rows, MaxSize, Accum) when length(Rows) < MaxSize ->
      [Rows|Accum];
  create_batches(Rows, MaxSize, Accum) ->
      {First, Rest} = lists:split(MaxSize, Rows),
      create_batches(Rest, MaxSize, [First|Accum]).
  %%%%%%%%
  
  add_preflists(PartitionedData, NVal, UpNodes) ->
  