start to generate series of random numbers (tuples of double and millisecond delay)

SeqRandom.fs

let random = new System.Random()
Seq.initInfinite (fun _ -> (random.NextDouble(), random.Next(500, 10000)))
|> Seq.filter (fun (x,y) -> x < 0.5)
|> Seq.take 5
|> Seq.iter (fun elem -> printfn "%A" elem)
printfn ""