Определите функцию для преобразования одноуровнего списка в двухуровневый

(defn init (l)
    cond (null? l) nil
         (null? (cdr l)) nil
         (cons (car l) (init (cdr l))))
 
(defn task (l)
    cond (null? l) nil
         (null? (cdr l)) l
         (cons (cons (car l) (car (reverse l)) nil) (task (cdr (init l))) ))
 
(task '(1 2 3 4 5))
 
=> ((1 5) (2 4) 3)

(defun task (lst)
 (cond ((null lst) nil)
       ((null (cdr lst)) lst) 
       (t (cons (cons (car lst) (last lst)) (task (cdr (butlast lst)))))))
 
==> TASK
 
(task '(1 2 3 4 5))
 
==> ((1 5) (2 4) 3)

(defun glue-edges (w)
  (when w (if (cdr w)
              (cons (cons (car w) (last w))
                    (glue-edges (cdr (butlast w))))
              (list w))))
 
> (glue-edges '(1 2 3 4 5))
((1 5) (2 4) (3))

(defun obmen (lst)
 (let 
  ((rez
    (reverse
     (subseq
      (reverse (mapcar #'list (reverse lst) lst))
      0
      (ceiling (length lst) 2)
  ))))
  (reverse
   (if (oddp (length lst))
    (cons (caar rez) (cdr rez))
    rez
))))

(defun obmen (lst)
 (let*
  ((len (length lst))
   (rez
    (subseq
     (mapcar #'list (reverse lst) lst)
     (floor len 2)
     len
  )))
  (reverse
   (if (oddp len)
    (cons (list (caar rez)) (cdr rez))
    rez
))))