an example of recursion with re-dispatch on multimethods

multimethod_recursion.clj

(defmulti redis class)

(defmethod redis java.lang.Integer [x] x)

(defmethod redis java.lang.Double [x]
	   (let [res (if (< (- x (int (floor x))) 0.01)
		      (int x)
		      (/ x 2))]
	     (println x)
	     (fn [] ((get-method redis ((.dispatchFn redis) res)) res))
	     ))

;; call like this:
(trampoline redis 64.05)