 
 ;; Calculates the number of each disc required to reach a given weight.
 (defn baz [accum plate-weights remaining-weight]
-  (println accum plate-weights remaining-weight)
   (if (or (<= remaining-weight 0) 
           (empty? plate-weights))
     accum


(defn app-root []
  (let [greeting (subscribe [:get-greeting])
        state (atom "")]
    (fn []
      [view {:style {:flex-direction "column"
                     :margin 40}}

                    :on-change-text #(do
                                       (reset! state %)
                                       (r/flush))
                    :placeholder "Weight"
                    :return-key-type "done"
                    :value @state}]
       [segmented-control {:on-change #(reset! desired-units (-> % .-nativeEvent .-selectedSegmentIndex))
                           :selected-index @desired-units
                           :values ["kg", "lbs"]}]
       [touchable-highlight {:style {:background-color "#999"
                                     :padding 10
                                     :border-radius 5}
