anchor.diff:  t_iolist_size_huge_list(Config)  when is_list(Config) ->
       run_when_enough_resources(
         fun() ->
  -              {TimeToCreateIOList, IOList} = timer:tc(fun()->duplicate_iolist(approx_4GB_bin(), 32) end),
  -              {IOListSizeTime, CalculatedSize} = timer:tc(fun()->erlang:iolist_size(IOList) end),
  -              20248183924657750016 = CalculatedSize,
  +              {TimeToCreateIOList, IOList} =
  +                  timer:tc(fun() ->
  +                                   duplicate_iolist(approx_1GB_bin(), 32)
  +                           end),
  +              {IOListSizeTime, CalculatedSize} =
  +                  timer:tc(fun() ->
  +                                   iolist_size(IOList)
  +                           end),
  +              5062045981164437504 = CalculatedSize,
                 {comment, io_lib:format("Time to create iolist: ~f s. Time to calculate size: ~f s.", 
                                         [TimeToCreateIOList / 1000000, IOListSizeTime / 1000000])}
         end).
  
positive.code:     run_when_enough_resources(
        fun() ->
                P = self(),
                spawn_link(fun()-> IOListTmp = duplicate_iolist(approx_4GB_bin(), 32),
                                   IOList = [IOListTmp, [badarg]],
                                   {'EXIT',{badarg,_}} = (catch erlang:iolist_size(IOList)),
                                   P ! ok
                           end),
                receive ok -> ok end
  
negative.code: 	    [47,L,L|Seq]
      end.
  
  approx_1GB_bin() ->
      iolist_to_binary(lists:duplicate(281, <<-1:4194304/unit:8>>)).
  
  duplicate_iolist(IOList, 0) ->
      IOList;
  