anchor.diff:              random:seed(A1, A2, A3),
               ok
       end.
  +
  +%% @doc Returns a random element from the given (non-empty!) list according to
  +%%      a uniform distribution.
  +-spec seeded_randomelem(List::[X,...]) -> X.
  +seeded_randomelem(List)->
  +    Length = length(List),
  +    RandomNum = random:uniform(Length),
  +    lists:nth(RandomNum, List).
  +
   % @todo
   % - start_scheduling could set a new/different white_list
  
positive.code:         X ->
              ct:pal("~w ~w", [Module, X]),
              erlang:sleep(1000),
              %ct:fail(unknown_module),
              ok
      end.
  
  
negative.code:         [] ->
              false;
          _ ->
              %util:randomelem(Runnable)
              seeded_randomelem(Runnable)
      end.
  
  sleep_delay() -> 100.
  