anchor.diff:  accept_params() ->
   	frequency([
   		{90, []},
  -		{10, list(accept_ext())}
  +		{10, small_list(accept_ext())}
   	]).
   
   accept() ->
   	?LET({T, S, P, W, E},
  -		{token(), token(), list(parameter()), weight(), accept_params()},
  +		{token(), token(), small_list(parameter()), weight(), accept_params()},
   		{T, S, P, W, E, iolist_to_binary([T, $/, S,
   			[[OWS1, $;, OWS2, K, $=, V] || {K, V, OWS1, OWS2} <- P],
   			case W of
  
positive.code: 	])].
  
  language_range() ->
  	[language_range_tag(), list(language_range_subtag())].
  
  accept_language() ->
  	?LET({R, W},
  
negative.code: -ifdef(TEST).
  -include_lib("triq/include/triq.hrl").
  
  vector(Min, Max, Dom) -> ?LET(N, choose(Min, Max), vector(N, Dom)).
  small_list(Dom) -> vector(0, 10, Dom).
  small_non_empty_list(Dom) -> vector(1, 10, Dom).
  
  alpha_chars() -> "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ".
  alphanum_chars() -> "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ".
  digit_chars() -> "0123456789".
  
  ows() -> list(oneof([$\s, $\t])).
  alpha() -> oneof(alpha_chars()).
  alphanum() -> oneof(alphanum_chars()).
  digit() -> oneof(digit_chars()).
  
  tchar() ->
  	frequency([
  