                 (if expanded "EXPANDED" "NOT EXPANDED"))))))
 
 
-(defn group-view-new
-  "Render the contents of one group (set) of numbers."
-  [app owner]
-  (let [signature [1 1]
-        numbers [4 5 6 7 8 9 10 "...dummy data..."]]
-    (reify
-      om/IInitState
-      (init-state [_]
-        {:expanded false})
-      om/IRenderState
-      (render-state [_ {:keys [expanded]}]
-        (dom/li nil
-                (dom/b nil
-                       (str/join ", " signature))
-                " [" (nums/vector-magnitude signature) "]"
-                (dom/br nil)
-                (count numbers) ": " (+ 3 4 )
-                (dom/span #js {:onClick (fn [e] (om/set-state! owner :expanded (not expanded)))}
-                           (dom/small nil (if expanded
-                                            (dom/i nil (str/join ", " numbers))
-                                            "CLICK TO EXPAND"))))))))
-
 (defn group-view
   "Render the contents of one group (set) of numbers."
   [[signature numbers] owner]

  "Extend the range of numbers we are looking at"
  [app]
  (om/transact! app :up-to #(nums/ceil (* % 1.5)))


(defn numseq [app]



(def app-state (atom {:title "Integer composite groups"
                      :up-to 10
                      :groups (nums/group-signatures 10)}))


(defn title [app]
