(bind-func get_LCG_Pseudorandom_Number (let ((seed 42)) (lambda (max:float) (set! seed (% (+ (* seed 3877) 29573) IM)) (* (/ max (i32tof IM)) (i32tof seed)))))