 
 (defn vary-pitch [{:keys [::pitch ::variation ::direction]}]
   (let [direction (or direction [-1 1])
-        a (descriptor->value pitch)
-        b (+ a (* (descriptor->value variation)
-                  (descriptor->value direction)))]
+        a         (descriptor->value pitch)
+        b         (+ a (* (descriptor->value variation)
+                          (descriptor->value direction)))]
     [a b]))
 
 (s/fdef vary-pitch

  static IExercise
  (new-round [_ props]
    (let [{::keys [read-note-order read-note]} props
          pos (rand-int-new (count read-note-order) read-note)
          note (get read-note-order pos)
          octave (if (> pos 4) 4 3)
          notes [(str note octave)]]
      (assoc props
        ::read-note pos
        ::notes notes

    (let [{::keys [options ex-answer ex-total-questions streak-count notes hints hints-used]
           :as    props} (om/props this)
          [opt-type _] (s/conform ::options options)
          parent       (om/parent this)
          hints        (if hints (hints props) [])
          check-answer #(do
                          (om/transact! parent `[(dcex/check-answer)
                                                 (untangled/load {:query [{:app/me ~(om/get-query UserScore)}] :marker false})]))]
