   static IExercise
   (new-round [_ props]
     (let [rhytms (partition 4 (take 16 (random-bars)))
-          idx (rand-int 4)
-          notes (->> (nth rhytms idx)
-                     (map ::vf/notes)
-                     (flatten)
-                     (map (comp #(vector "B4" %)
-                                duration->seconds
-                                ::vf/duration)))]
+          idx    (rand-int 4)
+          notes  (->> (nth rhytms idx)
+                      (map ::vf/notes)
+                      (flatten)
+                      (map (comp #(vector "B4" %)
+                                 duration->seconds
+                                 ::vf/duration)))]
       (assoc props
         ::rhytms rhytms
         ::notes notes


  static IExercise
  (new-round [_ props]
    (let [type (rand-nth ["major" "minor"])
          base-note (descriptor->value ["C3" ".." "F3"])]
      (assoc props
        ::notes (audio/chord base-note (type->arrengement type))

  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
