#!/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
)