gistfile1.txt

(ns utils)

(declare *log*)

(defn log [msg]
  (dosync (alter *log* cons msg)))

(ns backend
  (:use utils))
  
(defn some-fn [x]
  (log x))

(defn pmap-fn [list batch-size]
  (doall (pmap (fn [batch] (doall (map #(some-fn %) batch))) (partition batch-size list))))

(ns frontend
  (:use utils)
  (:require backend))

(def run
  (binding [*log* (ref '())]
    (backend/run)))