(defn #^ForkJoinTask mk-task [the-fn & args]
  (let [#^Callable no-arg-fn (if (empty? args)
                               the-fn
                               #(apply the-fn args))]
    (ForkJoinTask/adapt no-arg-fn)))

(defn #^ForkJoinTask apply-fork [the-fn & args]
    (.fork #^ForkJoinTask (apply mk-task the-fn args)))