(define (gen-ranqd1 seed)
  (let ((random seed))
    (lambda ()
      (set! random (modulo (+ (* random 1664525) 1013904223) #x100000000))
      random)))

(let ((random (gen-ranqd1 0))
      (expected-results '(#x3c6ef35f
                          #x47502932
                          #xd1ccf6e9
                          #xaaf95334
                          #x6252e503
                          #x9f2ec686
                          #x57fe6c2d
                          #xa3d95fa8
                          #x81fdbee7
                          #x94f0af1a
                          #xcbf633b1)))
  (for-each (lambda (expected)
              (let ((rnd (random)))
                (if (not (= rnd expected))
                    (error (format #f "FAILED: expected ~a, got ~a" expected rnd)))))
            expected-results))