gistfile1.clj

(defmap iterate-fractal
    (let [val %
          z (.xy val)
          c (mix upper-left lower-right (/ :coord :dim))
          iterations (.z val)]
      (? (< 4.0 (dot z z))
         val
         (float3
          (+ c 
             (float2 
              (- (* (.x z) (.x z)) (* (.y z) (.y z))) 
              (* 2.0 (.x z) (.y z))))
          (+ 1.0 iterations)))))