A) In the definition of remove-first below, if the last line were replaced by (remove-first s (cdr los)), what function would the resulting procedure compute? Give the contract, including the usage statement, for the revised procedure.

remove-first : Sym Listof(Sym) Listof(Sym)

(define remove-first

(lambda (s los)

(if (null? los)

()

(if (eqv? (car los) s)

(cdr los)

(cons (car los) (remove-first s (cdr los)))))))

B) Define remove, which is like remove-first in Part A, except that it removes all occurrences of a given symbol from a list of symbols, not just the first.

Please explain and make sure it's correct. Thanks