gistfile1.clj

(defn listify [orig-list]
  "Turns (1 2 3 ...) into (1 (2 (3 (...)))) using continuation passing style."
  (loop [lst orig-list cont identity]
    (if (= () lst)
      (cont ())
      (recur (rest lst)
             (fn [insert] 
               (cont (cons (first lst)
                           (list insert))))))))