gistfile1.txt

(defn dumb-split [#^String s c #^"[Ljava.lang.String;" tokens]
  (loop [i (int 0)
	 start (int 0)
	 end (int 0)]
    (cond (>= end (.length s))
	  (do (aset tokens i (.substring s start end))
	      tokens)

	  (= (.charAt s end) c)
	  (do (aset tokens i (.substring s start end))
	      (recur (inc i) (inc end) (inc end)))

	  :else (recur i start (inc end)))))