(define-macro my-let
  (lambda (args . body)
    (let ((names (map car args))
	  (vals (map cadr args)))
      (cons (cons 'lambda (cons names body)) vals))))

(define-macro my-let-2
  (lambda (args . body)
    (let ((names (map car args))
	  (vals (map cadr args)))
      `((lambda ,names ,@body) ,@vals))))



(map
 (lambda (func) (func ((a 1)
		       (b 2))
		      (display (+ a b))
		      (newline)))
 (list my-let my-let-2))