motivation for the extended integers

limit-infinity

    Return = case NumberGrouping of
        default ->
            Nums = [Nr || {Nr, _} <- ctree:get_nr(ResultTree, [{count, Limit}])],
            Sublist = case Limit of
                infinity ->
                    Numbers;
                L when is_integer(L) ->
                    lists:sublist(number_utils:expand_list(Nums), Limit)
            end,
            number_utils:reduce_list(Sublist).
        aligned ->
            Blocks = [Nr || {Nr, _} <- ctree:get_nr(ResultTree,
                [{type, blocks}, {count, Limit}])],
            BlockNumCount = number_utils:count_list(Blocks),
            case Limit /= infinty andalso BlockNumCount  >= Limit of
                true ->
                    reduce_blocks_to_limit(Blocks, Limit);
                false ->
                    Sparse = [Nr || {Nr, _} <- ctree:get_nr(ResultTree, [
                            {type, sparsed},
                            {count, (case Limit of
                                infinity ->
                                    infinity;
                                _ ->
                                    Limit - BlockNumCount
                            end)}
                    ])],
                    lists:append(Blocks, Sparse)
            end;
            <..>