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

        (recur res (rest l))))
    text-after))

(defn process-b
  ([text-after](process-b text-after (reverse (str/split-lines mydata))))
  ([text-after l](process-b-2 text-after l)))

  [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)
