F# Async Workflows Run Like A Charm On Unity3D

NewBehaviourScript.cs

using UnityEngine;
using System.Collections;

public class NewBehaviourScript : MonoBehaviour {

	// Use this for initialization
	void Start () {
		Debug.Log ("Start");
		Playground.AsyncTango();
		Debug.Log ("Dancing The Tango");
	}

	int count = 0;
	// Update is called once per frame
	void Update () {
		Debug.Log ("Update" + (++count).ToString());
	}
}

Playground.fs

module Playground

open FSharp.Data
open UnityCompat

let urlList = [ "http://www.microsoft.com/" 
                "http://msdn.microsoft.com/" 
                "http://www.bing.com"
                "http://www.google.com"
                "http://www.apple.com"
                "http://www.yahoo.com"
                "http://www.wooga.com"
                "http://www.facebook.com"
              ]

let fetchAsync(url:string) =
    async { 
        try 
            Logf "%s on %i" url Threading.Thread.CurrentThread.ManagedThreadId
            let! html = Http.AsyncRequestString (new System.Uri(url)).AbsoluteUri
            Logf "Read %d characters for %s" html.Length url
        with
            | ex -> printfn "%s" (ex.Message);
    }

let AsyncTango ()=
    let rnd = System.Random()
    urlList
    |> Seq.map (fun url ->
        let delay = rnd.Next(1000, 3000).ToString() 
        "http://deelay.me/"+delay+"/"+url)
    |> Seq.map fetchAsync 
    |> Async.Parallel
    |> Async.Ignore
    |> Async.Start