   "Extend the range of numbers we are looking at"
   [app]
   (om/transact! app :up-to #(nums/ceil (* % 1.5)))
+  (om/update! app :groups (nums/group-signatures (:up-to @app))))
 
 
 (defn numseq [app]

               (om/build title app)
               (om/build numseq app)
               (om/build counter-view app {})
               (dom/ul nil
                      (om/build group-view-new app {}))
               (apply dom/ul nil
                      (om/build-all group-view (nums/group-signatures (:up-to app))))))))


(om/root groups-view

                (if expanded "EXPANDED" "NOT EXPANDED"))))))


(defn group-view
  "Render the contents of one group (set) of numbers."
  [[signature numbers] owner]
