anchor.diff:  	])].
   
   language_range() ->
  -	[language_range_tag(), list(language_range_subtag())].
  +	[language_range_tag(), small_list(language_range_subtag())].
   
   accept_language() ->
   	?LET({R, W},
  
positive.code: 		list_to_binary(T)).
  
  obs_text() ->
  	[128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,
  	146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,
  	164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,
  	182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,
  	200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,
  	218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,
  	236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,
  	254,255].
  
  qdtext() ->
  	frequency([
  		{99, oneof("\t\s!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~")},
  		{1, oneof(obs_text())}
  	]).
  
  quoted_pair() ->
  	[$\\, frequency([
  		{99, oneof("\t\s!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~")},
  		{1, oneof(obs_text())}
  	])].
  
  quoted_string() ->
  
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()]]).
  