     (new-round this
       (merge
         (uc/initial-state Exercise nil)
-        {::options   [["lower" "Lower"] ["higher" "Higher"]]
+        {::name      "pitch-detection"
+         ::options   [["lower" "Lower"] ["higher" "Higher"]]
          ::pitch     ["C3" ".." "B5"]
          ::variation 24
          ::parent    this}
         props)))
 
   static om/Ident
-  (ident [_ props] [:exercise/by-name "pitch"])
+  (ident [_ props] [:exercise/by-name (::name props)])
 
   static om/IQuery
   (query [_] '[*])

  Object
  (render [this]
    (exercise (om/props this)
      (dom/p nil "You will hear two notes. Are they an octave apart?"))))

(om/defui ^:once ReadingMusic
  static uc/InitialAppState

  (query [_] ['*])

  static om/Ident
  (ident [_ props] [:exercise/by-name (::name props)])

  Object
  (render [this]
