(define (transpose m)
  (accumulate-n cons-stream the-empty-stream m))