Henon points in clojure https://en.wikipedia.org/wiki/H%C3%A9non_map

henon.clj

(defn _henon [x y]
  (let [x1 (* 1.4 (Math/pow x 2))]
    [(+ y (- 1 x1)), (* x 0.3)]))

(defn henon [x y]
  (let [[hx hy] (_henon x y)]
    (lazy-seq (cons [hx hy] (henon hx hy)))))
    
; Example usage: (take 100 (henon 1 1))