Clojure Infinite sequence example

infinite_seq.clj

(defn lista
    ([] (lista 1))
    ([one] (lazy-seq (cons one (lista (+ one 1))))))

(defn fibo
    ([] (fibo 0 1))
    ([one two] (lazy-seq (cons one (fibo two (+ one two ))))))

(defn -main
  [& args]
    (println (take 10 (lista)))
    (println (take 10 (fibo))))

(-main)