fn {data, parser} ->
        case parser.(data) do
          {:ok, {result, rest, next}} ->
            {[result], {rest, next}}
        end

      fn
        {"", _} = acc ->
          {:halt, acc}
        {data, parser} ->
          case parser.(data) do
            {:ok, {result, rest, next}} when is_list(result) ->
              {result, {rest, next}}
          end