loop.fs

let event = new Event<int>()
let evp = event.Publish
let rand() = System.Random().Next(100)
evp.Add(printfn "event raised with %d")
let rec loop() = async {
                event.Trigger <| rand()
                System.Threading.Thread.Sleep(3000)
                printfn "Thread number %A" System.Threading.Thread.CurrentThread.ManagedThreadId
                return! loop()
}