gistfile1.clj

(defn a 
  [k x1 x2 x3 x4 x5]
  (letfn [(b [] 
             (reset! k (dec @k))
             (a (atom @k) b x1 x2 x3 x4))]
    (if (<= @k 0)
      (+ (x4) (x5))
      (b))))

(defn man-or-boy
  [x]
  (a (atom x) 
     (fn [] 1)
     (fn [] -1)
     (fn [] -1)
     (fn [] 1)
     (fn [] 0)))