                 "\n-------------------------\n\n"
                 "The following results were duplicated in Bing:\n\n"
                 (get-printable-result (second uber-query-result))
+                "\n-------------------------\n\n"
+                "A simple similarity metric (does not consider results order): "
+                (nth uber-query-result 2)
 
 
 

                                     x)
        bing-result (search-bing (read-property "config.json" "bing" "username")
                                 (read-property "config.json" "bing" "password")
                                 x)]

    [(get-aggregated-result google-result bing-result) (get-common-urls google-result bing-result)]

    )
  )

;;(uber-query "Miles Davis")





(defn simple-similarity-metric [x y]
  (try (str (format "%3f" (* 100 (float (/ (count x) (count y))))) "%")
    (catch ArithmeticException e "0.0%" )
    )
  )


(str (format "%3f" (* 100 (float (/ 1 2)))) "%")
(.decimalValue (/ 1 2))

(defn uber-query
  [x]
