theleoborges

(require '[clojure.core.async :as async :refer :all])

(defn fake-search [kind]
  (fn [query]
    (Thread/sleep (int (* (java.lang.Math/random) 1000)))
    (str kind " result for " query)))

(def web (fake-search "Web"))
(def image (fake-search "Image"))
(def video (fake-search "Video"))