          product/SAFARI    :safari
          product/CHROME    :chrome
          product/FIREFOX   :firefox
-         product/IE        :ie)]
+         product/IE        :ie)
+      print-to-console? ((print-receivers print-output) :console)]
   (defn eval-javascript** [code]
     (let [ua-product (ua-product-fn)]
       (try

          ;; TODO capture err as well?
          (binding [cljs.core/*print-newline* true
                    cljs.core/*print-fn* (fn [x] (.append sb x))]
            (let [result-value (*eval-js* code)]
              {:status :success
               :out (str sb)
               :ua-product ua-product
               :value result-value})))
        (catch js/Error e

       (map string/trim)
       (filter (complement string/blank?))
       (map keyword)
       set))

(defmulti out-print (fn [k args] k))
(defmethod out-print :console [_ args]
