anchor.diff:      Length = length(List) + 1,
       RandomNum = randoms:rand_uniform(1, Length),
       {lists:nth(RandomNum, List), Length - 1}.
  -
  +    
   %% @doc Removes a random element from the (non-empty!) list and returns the
   %%      resulting list and the removed element.
   -spec pop_randomelem(List::[X,...]) -> {NewList::[X], PoppedElement::X}.
   pop_randomelem(List) ->
       pop_randomelem(List, length(List)).
  -
  +    
   %% @doc Removes a random element from the first Size elements of a (non-empty!)
  -%%      list and returns the resulting list and the removed element.
  +%%      list and returns the resulting list and the removed element. 
   -spec pop_randomelem(List::[X,...], Size::non_neg_integer()) -> {NewList::[X], PoppedElement::X}.
   pop_randomelem(List, Size) ->
       {Leading, [H | T]} = lists:split(randoms:rand_uniform(0, Size), List),
  
positive.code:         true -> Acc;
          _ -> ok
      end;
  i_repeat(Fun, Args, Times, Params, Acc) ->
      R = apply(Fun, Args),
      NewAcc = case lists:keyfind(accumulate, 1, Params) of
                   false -> Acc;
  
negative.code:           end,
      case DoAnswer of
          true -> comm:send_local(SrcPid, {parallel_result, Id, Res});
          _ -> ok 
      end,
      ok.
  
  