(defun garde-a (liste)
  (cond
    ((not liste) nil)
    ((equal (car liste) 'o) (cons 'o  (garde-a (cdr liste))))
    ((garde-a (cdr liste))) ) )