[racket] macro question

Hi Racket people:
	I have a (maybe too simple) question:
	How I create one macro like this (but using define-macro &
	R5RS language only)?:
	
	(vars sym var-cant val-of-vars)

	Example:
	(vars id 5 null) -> (prog (define id1 null) 
				  (define id2 null)
				  (define id3 null)
				  (define id4 null)
				  (define id5 null)) 

--
Nunca digas nunca, di mejor: gracias, permiso, disculpe.

Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/