(define (prueba atom lis)
  (cond
    [(null? lis)
     ()]
    [(eq? atom (car lis))
     (cons (car lis) (prueba atom (cdr lis)))]
    [else (prueba atom (cdr lis))]))

(prueba 'a '(d a b a))
(prueba 'a '(a b a))
(cons 'a (prueba 'a (b a)))
(cons 'a (prueba 'a (a)))
(cons 'a (cons 'a (prueba 'a ())))
(cons 'a (cons 'a ()))
(cons 'a (a))
'(a a)