;; cycles elongates the time between changes ;; i.e. (cycle LC 1 '(60 63 67) '(58 62 65)) (define (cycle cnt cycles . args) (list-ref args (modulo (floor (/ cnt cycles)) (length args))))