F# async worflow example

non_blocking_api_dot_net.fs

open System.IO
open System.Net   
open System.Text

async {

    let file = File.OpenRead("Program.fs")    
    let! stuff = file.AsyncRead(250)        

    printfn "%A" (Encoding.Default.GetString(stuff))

    let req = WebRequest.Create("http://www.google.com/search?q=node.js")
    let! resp = req.AsyncGetResponse()
        
    printfn "%i headers recieved." resp.Headers.Count

} |> Async.RunSynchronously