Tu voulais sûrement ceci:



(define (stat nb n nfinal)
(let ((x (- (/ (random 2001) 1000 ) 1))
(y (- (/ (random 2001) 1000 ) 1)))
(+ x y)))