(get-ua-product)
(defn get-ua-product [] (cond product/SAFARI :safari product/CHROME :chrome product/FIREFOX :firefox product/IE :ie))