Pseudorandom numbers in WebAssembly

rand.wat

;; From https://github.com/vsariola/sointu
;; Compiles to 19 bytes of WebAssembly code
;;
;; Returns pseudorandom numbers in the range 0 to 1
(module
  (global $randseed (mut i32) (i32.const 1))
  (export "rand" (func $rand))
  (func $rand (result f32)
    (set_global $randseed (i32.mul (get_global $randseed) (i32.const 16007)))
    (f32.div (f32.convert_s/i32 (get_global $randseed)) (f32.const -2147483648))
  )
)