(defun f(a)
  (cond (/* если а - пустой список остановить алгоритм не продолжать рекурсию*/)
        (/* если а - атом, вернуть а и рекурсивно применить функцию к хвосту*/)
        (/* если а - список, рекурсивно применить функцию к а и хвосту*/)
        )
  )

(defun f(a)
  (cond ((null a) '())
        ((atom (car a)) (concatenate 'list (list (car a)) (f (cdr a))))
        (t (concatenate 'list (f (car a)) (f (cdr a))))
        )
  )


(defun tr(a)
  a)