Thread-safe random

random.fs

let next =
    let result = ref 0
    let rnd = System.Random()
    let rec roll () =
        let old = !result
        let next = rnd.Next()
        if System.Threading.Interlocked.CompareExchange(result, next, old) = old then
            next
        else
            roll()
    roll