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: langtag_list_sep(<< $\t, R/bits >>, Acc) -> langtag_list_sep(R, Acc).
  
  -ifdef(TEST).
  langtag_language() -> vector(2, 3, alpha()).
  langtag_extlang() -> vector(0, 3, [$-, alpha(), alpha(), alpha()]).
  langtag_script() -> oneof([[], [$-, alpha(), alpha(), alpha(), alpha()]]).
  