(define-syntax numeric-access
  (syntax-rules ()
    ([numeric-access members ...]
     (lambda (p)
       (let ((i 0))
	 (cond ((eq? p (+ i 1)) members)
	       ...))))))

((numeric-access 10 20 30) 1)