anchor.diff:      a = element(1, {a}),
       a = element(1, {a, b}),
   
  -    List = lists:seq(1, 4096),
  -    Tuple = list_to_tuple(lists:seq(1, 4096)),
  +    List = lists:seq(1, 16384),
  +    Tuple = list_to_tuple(List),
       get_elements(List, Tuple, 1),
  +
  +    get_literal_elements(Tuple),
  +    get_literal_tuple_elements(Tuple),
  +
  +    {31,32, 63,64, 127,128, 255,256, 511,512, 1023,1024,
  +     2047,2048, 4095,4096, 8191,8192, 16383, 16384} =
  +        get_literal_tuple_element_pairs(Tuple),
   
       {'EXIT', {badarg, _}} = (catch element(0, id({a,b}))),
       {'EXIT', {badarg, _}} = (catch element(3, id({a,b}))),
  
positive.code: 	setelement(1, setelement(2, setelement(3, AnotherTuple, gurka),
  				 3.0), 93748793749387837476555412),
  
      ok.
  
  set_all_elements(Tuple, Pos) when Pos =< size(Tuple) ->
      set_all_elements(setelement(Pos, Tuple, Pos+7), Pos+1);
  set_all_elements(Tuple, Pos) when Pos > size(Tuple) ->
      Tuple.
  
  %% Tests list_to_tuple/1.
  
  
negative.code:     {x,2} = setelement(1, id({1,2}), x),
      {1,x} = setelement(2, id({1,2}), x),
  
      Tuple = list_to_tuple(lists:duplicate(16385, x)),
      NewTuple = set_all_elements(Tuple, 1),
      NewTuple = list_to_tuple(lists:seq(1+7, 16385+7)),
  
      {'EXIT', {badarg, _}} = (catch setelement(0, {a, b}, x)),
      {'EXIT', {badarg, _}} = (catch setelement(3, {a, b}, x)),
  