Code the function, (evalEach lis) which evaluates each item in the lis using the built-in EVAL function. Its functional value is the value of the last expression evaluated.> (evalEach '( (setf A 5) (print 'hello) (print 'there) A))HELLOTHERE5> (evalEach '( (setf x 10 ) (setf A '(x y z)) (print A) (setf B (car A)) (set B (+ 5 x)) )(X Y Z)15> (print B)XX> (print X)1515;;; PGM2 RUN (repeat 'A 5)(duplicate ' (A B C)) (duplicate ' (GUM (HAS BEEN) CHEWED)) (duplicateN ' (A B C) 2) (duplicateN ' (A B C) 3) (duplicateN ' (GUM (HAS BEEN) CHEWED) 2) (duplicateDeep ' (A B C) ) (duplicateDeep ' (A (B D) E (F)) ) (duplicateDeep '(A (B (D E) (F G)) (H I)) ) (printWOP '(A B D))(printWOP '(A (B D) E F) )(printWOP NIL)(printWOP 'Hello)(evalEach '( (setf A 5) (print 'hello) (print 'there) A)) (evalEach '( (setf x 10 ) (setf A '(x y z)) (print A) (setf B (car A)) (set B (+ 5 x)) ))(print B)(print X)