программирование на mulisp.Пожалуйста

( defun multiply ( lst )
  ( if ( null lst ) 1
    ( * ( car lst ) ( multiply ( cdr lst ) ) ) ) )
    
( defun new->list ( lst )
  ( if ( null lst ) nil
    ( cons ( multiply lst ) ( new->list ( cdr lst ) ) ) ) )

(defun tails (list)
  (if (null list)
      nil
      (cons list (tails (cdr list)))))
 
(defun product-of-tails (list)
  (mapcar (lambda (lst)
        (reduce #'* lst :initial-value 1))
      (tails list)))

(defun task (lst)
 (maplist #'(lambda (x) (apply '* x)) lst))
 
 
==> task
 
(task '(1 2 3 4 5 6))
 
==> (720 720 360 120 30 6)

(defun product-tail (w)
  (loop for a on w collect (apply #'* a)))
 
> (product-tail '(1 2 3 4 5 6))
(720 720 360 120 30 6)

(defun product-tail (w)
  (maplist #'(lambda (a) (reduce #'* a)) w))
 
> (product-tail '(1 2 3 4 5 6))
(720 720 360 120 30 6)

(defun mlist (lst)
  (cond ((null lst) nil)
        (t (cons (apply '* lst) (mlist (cdr lst))))))
 
==> mlist
 
(mlist '(1 2 3 4 5 6 7))
 
==> (5040 5040 2520 840 210 42 7)
 
(mlist '(1 2 3 4 5 6))
 
==> (720 720 360 120 30 6)

(defun product-tail (w)
  (when w (cons (apply '* w) (product-tail (cdr w)))))
 
> (product-tail '(1 2 3 4 5 6))
(720 720 360 120 30 6)