;; Benchmark: 2.7us
;; Benchmark-Repeat: 749

(do
  ;; Set the random seed to match the existing test output exactly
  (def random (make-random 42))

  ;; Use our new generic create-ticker to pulse 3 times
  (def cnt 3)
  (def ticker (create-ticker (fn [] (> (assign cnt (- cnt 1)) -1))))

  ;; The candle generator reacting to the ticker
  (def last-close 100.0)

  (def src1
    (pipe [ticker]
      (fn [_]
        (do
          ; Matches Rust: (rng.f64() - 0.5) * 2.0
          (def change (* (- (random) 0.5) 2.0))
          (def open last-close)
          (def high (+ open (abs (* (random) 2.0))))
          (def low (- open (abs (* (random) 2.0))))
          (assign last-close (+ open change))
          {:open open :high high :low low :close last-close}
        )
      )
    )
  )

  (def combined
    (pipe [src1]
      (fn [t1]
        (.close t1)
      )
    )
  )

  (def my_indicator
    (pipe [combined]
      (fn [close_price]
        (+ close_price 10.0)
      )
    )
  )

  (assert-eq :stream (type-of my_indicator))
)