cycle replaces (flatten repeat)
(defn oscilrate [n & ops] (map (fn [op] (op n)) (reductions (fn [f g] (comp g f)) (cons identity (cycle ops)))))