#!/bin/newlisp

# Simple benchmark program - PvE.
# The higher the outcome, the better the performance.

(set 't 0.0)
(set 'end (+ (time-of-day) 10000))

(while (< (time-of-day) end)
    (set 't (add t 0.0001))
)

(println "Result is: " t)
(exit)