 
 (defn on-dom-loaded []
   (let [file-upload (dom/getElement "fileInput")]
-    (when file-upload
-      (print file-upload)
-      (events/listen file-upload "change" handle-files)))
-  (print "domready"))
+    (events/listen file-upload "change" handle-files)))
 
 (def w (dom/getWindow))
 (events/listen w (.-DOMCONTENTLOADED events/EventType) on-dom-loaded)

      )))

(defn display-image-array [pixels]
  (let [pixels-div (dom/getElement "pixels")]
    (when pixels-div
      (let [s (pixels-to-string pixels [])]
        (set! (.-innerHTML pixels-div) s))
      )
    ))

(defonce max-image-dimension 224)


(defonce setup-stuff
 (do
  (let [button (dom/getElement "go")]
   (events/listen button "click" go-click-listener))
  (events/listen (dom/getElement "inverse") "click"
    (fn [event]
     (swap! img invert-image)
