(do
(def med (pipe [[dax [:Close :Open]]] 
  (fn [cs os] 
    (do
      (def o (get os 0))
      (def c (get cs 0))
      (def mm (* 0.5 (+ o c)))
      {:m mm}
    )
  )
))

(def v 0)

(def xxx (pipe [[dax [:High :Low]] [med [:m]]]
  (fn [hs ls ms]
    (do
      (def h (round (get hs 0)))
      (def l (round (get ls 0)))
      (def m (get ms 0))
      (watch "h=" h " l=" l " m=" m) 
      (assign v (+ v h))
      {:ah v}
    )
  )
))

(pipe [[xxx [:ah]]]
  (fn [a] (do (print (get a 0)) ...))
)

)