   [form]
   (if form (apply (first form)(rest form))))
 
-(defn call-cmd
+(defn parse-cmd
   [cmd text]
   (let [ret (or (parse-rotate-left cmd text)
                 (parse-rotate-right cmd 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)))

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