(define (growingTrees)
  (define (helper tree level)
    (let ((current (grow tree level)))
      (stream-cons current (helper current (+ 1 level)))))
  (stream-cons '(0 () ()) (helper '(0 () ()) 1)))