Ex-2.36

(define (accumulate-n op init seqs)
  (if (or (null? seqs) (null? (car seqs)))
      '()
      (cons (accumulate op init
                        (map (lambda (x) (car x)) seqs))
            (accumulate-n op init
                          (map (lambda (x) (cdr x)) seqs)))))