Seminario_TP4_EJ07

(defun prof (l)
    (if (null l)
        0
        (if (atom l)
            0
            (max (+ 1 (prof (car l))) (prof (cdr l)))
        )
    )
)