Define a procedure integrate-series-tail that, given a series returns the integral of the series (except for the constant term) Turn in a listing of your procedure and demonstrate that it works by computing integrate-series-tail of the series S2 from problem 1.

Here is a possible implementation of the `integrate-series-tail` procedure in Scheme:

(define (integrate-series-tail s)
  (define (helper s n)
    (if (null? s)
        '()
        (cons (/ (car s) (+ n 1))
              (helper (cdr s) (+ n 1)))))
  (helper (cdr s) 0))

The `integrate-series-tail` procedure takes a series `s` as input and returns a list of coefficients that represent the integral of the series (except for the constant term). The integration is performed by dividing each coefficient (except for the first one) by its corresponding power of x and incrementing the power by one.

To demonstrate that this procedure works, we can use it to compute the integral of series S2 from problem 1:

(define S2 '(1 -1 1 -1 1 -1 1 -1 1 -1))
(integrate-series-tail S2)

This should output the following list:

(1/2 -1/3 1/4 -1/5 1/6 -1/7 1/8 -1/9 1/10)

This means that the integral of S2 (except for the constant term) is:

1/2 x - 1/3 x^2 + 1/4 x^3 - 1/5 x^4 + 1/6 x^5 - 1/7 x^6 + 1/8 x^7 - 1/9 x^8 + 1/10 x^9 + C

where C is a constant.