Stack

stack.clj

(defrecord Node [head tail])

(defn create [value]
  (Node. value nil))

(defn push [stack value]
  (Node. value stack))

(defn peek [stack]
  (:head stack))

(defn pop [stack]
  (:tail stack))

(-> create
    (push "one")
    (push "two")
    pop
    peek)
;"one"