#use rtl

(do
  (def src (create-random-ohlc 42 200))

  (macro printx [s] `(fn [x] (print ~s x)))

  (pipe src print) 
  (pipe [(pipe [(.close src)] (SMA 20))] (printx "sma20="))
  (pipe [(pipe [(.close src)] (SMA 5))] (printx "sma5="))
  (pipe [(pipe [(.close src)] (SMA 100))] (printx "sma100="))
)