Write a lisp program that takes a sequence s (a string) and an alphabet a (a string), and generates a result sequence (a string) by including only the characters of s that occur in the alphabet a. The unit test below includes test cases that your solution  must pass.

(deftest test-filter-seq ()    (check        (equal (filter-seq "sdafgacs" "abcf") "afac")        (equal (filter-seq "" "abcf")  "")        (equal (filter-seq "sdafgacs" "") "")      (equal (filter-seq "sdafgacs" "abcfs") "safacs")))