anchor.diff:  number(<< $7, R/bits >>, Acc) -> number(R, Acc * 10 + 7);
   number(<< $8, R/bits >>, Acc) -> number(R, Acc * 10 + 8);
   number(<< $9, R/bits >>, Acc) -> number(R, Acc * 10 + 9);
  -number(<< $\s, R/bits >>, Acc) -> ws_end(R), Acc;
  -number(<< $\t, R/bits >>, Acc) -> ws_end(R), Acc;
   number(<<>>, Acc) -> Acc.
  -
  -ws_end(<< $\s, R/bits >>) -> ws_end(R);
  -ws_end(<< $\t, R/bits >>) -> ws_end(R);
  -ws_end(<<>>) -> ok.
   
   %% Parse a list of case insensitive tokens.
   token_ci_list(<<>>, Acc) -> lists:reverse(Acc);
  
positive.code: parse_max_forwards_test_() ->
  	Tests = [
  		{<<"0">>, 0},
  		{<<"42    ">>, 42},
  		{<<"69\t">>, 69},
  		{<<"1337">>, 1337},
  		{<<"1234567890">>, 1234567890},
  		{<<"1234567890     ">>, 1234567890}
  	],
  	[{V, fun() -> R = parse_max_forwards(V) end} || {V, R} <- Tests].
  
  
negative.code: 		<<"100-continue">>,
  		<<"100-CONTINUE">>,
  		<<"100-Continue">>,
  		<<"100-CoNtInUe">>
  	],
  	[{V, fun() -> continue = parse_expect(V) end} || V <- Tests].
  
  