(defun my-flatten (lst)
  (cond ((null lst) lst)
	((listp (car lst)) (append (my-flatten (car lst)) (my-flatten (cdr lst))))
	(t (append (cons (car lst) nil) (my-flatten (rest lst))))))