Clearly this calls for a macro (define-syntax naive-for (syntax-rules () [(naive-for start end body ...) (let ([op (if (< start end)

Clearly this calls for a macro (define-syntax naive-for (syntax-rules () [(naive-for start end body ...) (let ([op (if (< start end) + -)]) (let loop ([s start] [e end]) (begin body ...) (cond [(not (eq? s e)) (loop (op s 1) e)])))])) (naive-for 1 -2 (displayln "Lambda? What lambda?"))