Write a function that accepts as input two sets represented as lists and produces at output a list representing the intersection of the two sets. Example: >(union ’(a b c d e f) ’(a c f e x y)) ; Value: (a b c d e f x y)

Example: Write a function that accepts as input two sets represented as lists and produces at output a list representing the intersection of the two sets. Example: >(union ’(a b c d e f) ’(a c f e x y)) ; Value: (a b c d e f x y)

(define (checkresult a b)
  (list (subtract a b)
        (subtract b a)
        (union a b)
        (intersect a b)))