Seminario_TP3_EJ04

(defun posnum (num lista &optional (cont 1))
    (if (eq num cont)
        (car lista)
        (posnum num (cdr lista) (+ cont 1))
    )
)