anchor.diff:      end.
   
   rand_binary() ->
  -    case random:uniform(3) of
  +    case rand:uniform(3) of
   	1 -> <<>>;
   	2 -> <<"hi">>;
   	3 -> <<"message text larger than 64 bytes. yep, message text larger than 64 bytes.">>
       end.
   
   rand_number() ->
  -    case random:uniform(3) of
  -	1 -> random:uniform(5);
  -	2 -> float(random:uniform(5));
  -	3 -> 1 bsl (63 + random:uniform(3))
  +    case rand:uniform(3) of
  +	1 -> rand:uniform(5);
  +	2 -> float(rand:uniform(5));
  +	3 -> 1 bsl (63 + rand:uniform(3))
       end.
   
   rand_atom() ->
  -    case random:uniform(3) of
  +    case rand:uniform(3) of
   	1 -> hi;
   	2 -> some_atom;
   	3 -> some_other_atom
  
positive.code: 
  
  t_frequency_table(Config) when is_list(Config) ->
      random:seed({13,1337,54}),  % pseudo random
      N = 1000,
      Ts = rand_terms(N),
      #{ n:=N, tf := Tf } = frequency_table(Ts,#{ n=>0, tf => #{}}),
  
negative.code: rand_terms(N) -> [rand_term()|rand_terms(N-1)].
  
  rand_term() ->
      case rand:uniform(6) of
  	1 -> rand_binary();
  	2 -> rand_number();
  	3 -> rand_atom();
  