#!/usr/bin/env nujel
#|
| This is just a simple program that can be used to test the accuracy of the clock
|#
(def next-tick (+ (time/milliseconds) 1000))
(def tick-tock #t) ; Just a simple comment
(def test {})
(set! test :asd 123)
(while #t
(while (< (time/milliseconds) next-tick))
(if tick-tock
(println "\"Tick\"")
(println "Tock"))
(set! tick-tock (not tick-tock))
(set! next-tick (+ (time/milliseconds) 1000)))
