(display-clr)
(display "Benchmark pour Abstrasy 2.0 ")
(display "============================================================")
(display)

(define 'x 10000000)

(display "Test d'une boucle while " x " itérations.")
(display "------------------------------------------------------------")

(define 'essais 10)
(define '$essais essais)
(define '$temps 0)
(while{$essais}
  {
    (define 'deb (now))

    # Debut du test...
    (define '$i x)
    (while{$i} {set! $i (- $i 1)})
    # Fin du test...

    (define 'fin (now))
    (display "Temps : " (- fin deb) "ms.")
    (set! $temps (+ $temps (- fin deb)))
    (set! $essais (- $essais 1))
  }
)
(display "------------------------------------------------------------")
(display "Temps moyen : " (round (/ $temps essais)) "ms.")