(define-syntax compile-time
  (λ (stx)
    (datum->syntax stx
                   (for/sum ((n 100000000)) n))))

(define run-time
  (λ ()
    (for/sum ((n 100000000)) n)))

(time (displayln (compile-time)))

(time (displayln (run-time)))