Уменьшить каждый 2-й элемент списка

(defun foo(FL am)
    (cond ((eq am 1) (list (car FL)))
      (t (cons (car FL) (foo (cdr FL) (- am 1))))
    )
)
 
;задание длины списка и элемент, с которого удалить часть списка - РАБОТАЕТ
(setq N (getint "N= "))
(setq X (getint "X= "))
(setq S (list (+ N 1)))
(setq K (- N 1))
 
 
;Заполнение списка и его вывод
(while (>= K 0)
    (setq S (cons (+ K 1) S))
    (setq K (- K 1))
)
(progn (print "Исходный список S: ") (print S) (princ) (terpri))
 
 
;Удаление части списка и вывод 
(setq S1 (foo S (- X 1)))
(progn (print "Удалил S1: ") (print S1) (princ) (terpri))
 
;Уменьшение каждого второго и вывод результата НЕ РАБОТАЕТ
(defun dec (L)
 
    (cond   ( (null L) nil)                                                                                         
            ( (null (cdr L)) L)  
            (t (cons (car L) (dec (- (cadr L) 1)))) ;по идеи я уменьшаю голову хвоста, т.е. 2-й элемент
    )   
)
 
(progn (print "Уменьшил S2: ") (print S1) (princ) (terpri))

(defun F (ls) (if ls
    (cons (cond
        ((evenp (car ls)) (- (car ls) 1) )
        (t (car ls))) (F (cdr ls)))     
    )
)
 
(defun evenp (num)
  (= (rem num 2) 0)
)
 
(setq S2 (F S1))

(defun F (ls)
  (if (cdr ls)
      (cons (car ls)
            (cons (1- (cadr ls))
                  (F (cddr ls))))
      ls))
 
Command: (F '(2 2 2 2 2))
(2 1 2 1 2)
 
Command: (F '(2 2 2 2))
(2 1 2 1)

;; racket-lang.org
(define (foo lst (trigger #f))
  (cond [(null? lst) lst]
        [trigger (cons (sub1 (car lst)) (foo (cdr lst) (not trigger)))]
        [else (cons (car lst) (foo (cdr lst) (not trigger)))]))
 
(foo '(2 2 2 2 2 2))
;'(2 1 2 1 2 1)

(defun task (lst)
  (iter (for i in lst) (for u upfrom 1)
   (collecting (if (evenp u) (- i 2) i))))
 
==> task
 
(task '(1 2 3 4 5 6 7 8))
 
==> (1 0 3 2 5 4 7 6)