               \f :fwd
               \+ :right \- :left
               \[ :push \] :pop
-              \a :a \b :b \c :c \d :d \e :e}
+              \a :a \b :b \c :c \d :d \e :e
+              \x :x \y :y \z :z}
              src)
         num (count src)]
     (loop [acc [] i 0]

  (and (:start rules)
       (->> rules
            (mapcat val)
            (every? #{:start :fwd :left :right :push :pop :a :b :c :d :e}))))

(defn process-tweet
  [{:keys [id src params user-id]}]

   :theta  0
   :rot    90})

(def valid-symbols
  #{:start :fwd :left :right :push :pop :a :b :c :d :e :x :y :z})

(defn replace-symbols
  [src]
  (let [src (replace
