setTimeout and setInterval in clojure (java)

timed-functions.clj

(ns user
  (:import (java.util.concurrent Executors TimeUnit)))

(defn set-timeout [^Callable f ^long ms]
  (doto (Executors/newScheduledThreadPool 1)
    (.schedule f ms TimeUnit/MILLISECONDS)))

(defn set-interval [^Callable f ^long ms]
  (doto (Executors/newScheduledThreadPool 1)
    (.scheduleAtFixedRate f 0 ms TimeUnit/MILLISECONDS)))

(comment
  (def ses (set-timeout (fn [] (println "HI")) 1000))
  (def ses (set-interval (fn [] (println "HI")) 1000))
  (.shutdown ses)
  (.shutdownNow ses))