(defun groesser(ListA ListB)
    (dolist (x ListA)
       (if (eq (first ListB) x)
           (pop ListB) 
           ()
       (message "%S %S %S"x ListA ListB)
    )
)

(defun kleiner(ListA ListB)
    
)

(defun gleich(ListA ListB)
    
)

(defun abarbeiten(ListA ListB)
    
)

(setq List1 (1 2 (3 5 )))
(setq List2 (1 2 3))