"Boucle repetitive sur n"
(setq n 100000)
"(repeat 100000 (if (= n 0) 'ok (setq n (- n 1))))"
(repeat 100000 (if (= n 0) 'ok (setq n (- n 1))))