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

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

    Source: geocities.com/siliconvalley/way/5970

               ( geocities.com/siliconvalley/way)                   ( geocities.com/siliconvalley)