Определить две рекурсивных функции

(defun set1 (lst)
  (cond ((null lst) nil)
        (t (cons (car lst) (set1 (remove (car lst) (cdr lst)))))))
 
==> set1
 
(trace set1)
 
==> set1
 
(set1 '((a b) c d (a b) c e))
 
Вход в функцию set1 Аргументы: ((a b) c d (a b) c e)
  Вход в функцию set1 Аргументы: (c d c e)
    Вход в функцию set1 Аргументы: (d e)
      Вход в функцию set1 Аргументы: (e)
        Вход в функцию set1 Аргументы: NIL
        Возврат из функции set1 Результат: NIL
      Возврат из функции set1 Результат: (e)
    Возврат из функции set1 Результат: (d e)
  Возврат из функции set1 Результат: (c d e)
Возврат из функции set1 Результат: ((a b) c d e)
 
==> ((a b) c d e)

(defun sum-nm (lst n m) 
  (cond ((zerop m) (car lst))
        ((zerop n) (+ (car lst) (sum-nm (cdr lst) 0 (- m 1))))
        (t (sum-nm (cdr lst) (- n 1) (- m 1))))) 
 
==> sum-nm
 
(sum-nm '(1 2 3 4 5 6 7) 2 4)
 
Вход в функцию sum-nm Аргументы: (1 2 3 4 5 6 7) 2 4
  Вход в функцию sum-nm Аргументы: (2 3 4 5 6 7) 1 3
    Вход в функцию sum-nm Аргументы: (3 4 5 6 7) 0 2
      Вход в функцию sum-nm Аргументы: (4 5 6 7) 0 1
        Вход в функцию sum-nm Аргументы: (5 6 7) 0 0
        Возврат из функции sum-nm Результат: 5
      Возврат из функции sum-nm Результат: 9
    Возврат из функции sum-nm Результат: 12
  Возврат из функции sum-nm Результат: 12
Возврат из функции sum-nm Результат: 12
 
==> 12