Seminario_TP4_EJ08

(defun dupli1 (l)
    (if (atom l)
        l
        (append l (mapcar 'dupli1 l))
    )
)

(defun dupli2 (l)
    (if (listp l)
        (append (mapcar 'dupli2 l) (mapcar 'dupli2 l))
        l
    )
)