Seminario_TP4_EJ06

(defun a_ulti (l)
    (append (cdr l) (list (car l)))
)

(defun ulti (l)
    (if (atom l)
        l
        (mapcar 'ulti (a_ulti l))
    )
)