IN COMMON LISP

Write a recursive definition make-flat, a function that returns all the elements of an arbitrarily nested list in a single-level list. (MAKE-FLAT ((A B (Q)) C (D ((E (F)) G) H))) should return (A B Q C D E F G H).