(accumulate-n + 0 (list (list 1 2 3) (list 4 5 6) (list 7 8 9) (list 10 11 12) ))
(defn accumulate-n [op init seqs]
(if (empty? (first seqs))
nil
(cons (accumulate op init (map first seqs ) ) (accumulate-n op init (map rest seqs)) )
))
08-15
08-15
08-15
08-15
08-15