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