let dict = System.Collections.Generic.Dictionary<string, int>()

​

let add i = async {

    dict.Add(string i, i)

}

​

[1..100]

|> List.map add

|> Async.Parallel

|> Async.RunSynchronously

​

dict

|> Seq.iter (printfn "%A")

​