(define curry2
  (lambda(f)
    (lambda(x)
      (lambda(y)
	(f x y)))))

(define consa
  ((curry2 cons) 'a))