(require (lib "defmacro.ss"))

(define-macro with-members
	        (lambda (members . statements)
		      `(let 
			          ,(map (lambda (s) `(,s 1)) members)
				         ,@statements)))