1 2 3 4 5 6 7
(ns lccl.lc.ast) (defrecord Var [name]) (defrecord Abs [arg body]) (defrecord App [left right]) (def IDENTITY (->Abs "x" (->Var "x")))