Реализация ф-ций CONS,CAR,CDR(Sheme,CLisp,Clojure)

(define (cons x y)
(define (dispatch m)
(cond ((= m 0) x)
((= m 1) y)
(else (error "Аргумент не 0 или 1 -- CONS" m))))
dispatch)
(define (car z) (z 0))
(define (cdr z) (z 1))

(defun cons(x y) 
(defun dispatch (m)
(cond 
((= m 0) x)
((= m 1) y)
( "Аргумент не 0 или 1")
))
)
(defun car(z)(funcall z 0))
(defun cdr(z)(funcall z 1))

(defn f-cons [x y] 
    (defn dispatch [m]
     (condp = m 
      0 x
      1 y
      "Аргумент не 0 или 1")))
(defn f-car [z](z 0))
(defn f-cdr [z](z 1))

Prelude> let mess x = (x 1)
Prelude> let add100 x = x + 100
Prelude> print(mess add100)
101
Prelude> let foo x = \y -> x+y
Prelude> print(mess foo(1000))
1001