         (recur res (rest l))))
     text-after))
 
+;; (mw.utils/timed "foo" (process-b "fbgdceah")) => "gcehdbfa"
+;; (mw.utils/timed "foo" (process "gcehdbfa")) => "fbgdceah"
 (defn process-b
   ([text-after](process-b text-after (reverse (str/split-lines mydata))))
   ([text-after l](process-b-2 text-after l)))

  (if (seq l)
    (do
      (assert (first l))
      (let [res (mycall (call-cmd (first l) text))]
        (println (str (first l) " => " res))
        (recur res (rest l))))
    text))

  [form]
  (if form (apply (first form)(rest form))))

(defn parse-cmd
  [cmd text]
  (let [ret (or (parse-rotate-left cmd text)
                (parse-rotate-right cmd text)
