1 665c255d 2023-08-04 jrmu (defun accumulate-n (op init seqs)
2 665c255d 2023-08-04 jrmu   (if (null (car seqs))
3 665c255d 2023-08-04 jrmu       nil
4 665c255d 2023-08-04 jrmu       (cons (accumulate op init (mapcar #'car seqs