Parallel async computation combinator

AsyncParallel.fs

// This operator is used in the slides for this talk: http://fwaris.wordpress.com/2013/01/31/unraveling-the-mystery-of-monads/
// I haven't seen all the slides yet but I took a shot on implementing it myself.

let (<||>) a b = async {
	let! a = Async.StartChild a
	let! b = Async.StartChild b
	
	let! ar = a
	let! br = b
	
	return (ar, br)
}

open FSharp.Net

async {
    let! one, two = Http.AsyncRequest("http://www.google.com") <||> Http.AsyncRequest("http://www.zombo.com")
    printfn "Both pages in parallel: %A %A" one.[..15] two.[..15]
} |> Async.RunSynchronously |> ignore