#lang racket/base (require (for-syntax racket/base)) (define-syntax (step stx) (define numList (build-list (syntax->datum (cadr (syntax->list stx))) values)) (define works (map (lambda (v) `(expt 2 ,v)) numList)) (datum->syntax stx `(+ ,@works))) (step 500000)