(defun my-flatten (alist)
  (if (null alist)
    nil
    (append
      (if (listp (car alist))
        (my-flatten (car alist))
        (list (car alist)))
      (my-flatten (cdr alist)))))