File testzmq/random.scm artifact 7090f9f44f part of check-in 08a1393c61
(use posix numbers) (randomize (inexact->exact (current-seconds))) (define low (string->number (cadr (argv)))) (define hi (string->number (caddr (argv)))) (print (+ low (random (- hi low))))