(define (random-num n)
  (set-pseudo-random-seed! (random-bytes))
  (pseudo-random-integer n))