     (new-round this
       (merge
         (uc/initial-state Exercise nil)
-        {::options     [["yes" "Yes"] ["no" "No"]]
-         ::pitch       ["C3" ".." "B5"]
-         ::variation   [3 5 6 7 8 9 12 15 16]
-         ::parent      this}
+        {::options   [["yes" "Yes"] ["no" "No"]]
+         ::pitch     ["C3" ".." "B5"]
+         ::variation [3 5 6 7 8 9 12 15 16]
+         ::parent    this}
         props)))
 
   static om/Ident


(s/def ::description string?)
(s/def ::option (s/cat :value string? :label string?))
(s/def ::options (s/+ (s/spec ::option)))

(s/def ::ex-props (s/keys :req [::options]))
(s/def ::ex-answer (s/nilable string?))

    (new-round this
      (merge
        (uc/initial-state Exercise nil)
        {::options   [["lower" "Lower"] ["higher" "Higher"]]
         ::pitch     ["C3" ".." "B5"]
         ::variation 24
         ::parent    this}
        props)))

  static om/Ident
