0. #lang racket
1.  
2. (require racket/fixnum)
3.  
4. (define (sum n acc)
5.   (if (zero? n)
6.       acc
7.       (sum (fx- n 1)
8.            (if (fxeven? n)
9.                (fx+ acc n)
10.                (fx- acc n)))))
11.  
12. (time (sum 10000000 0))

=>

fxeven?: undefined;

cannot reference an identifier before its definition

in module: 'm