altbodhi

open System
open Microsoft.FSharp.Reflection

let readln = Console.ReadLine
let writeln = fun a ->
    let args = if FSharpType.IsTuple(a.GetType()) then FSharpValue.GetTupleFields(a) else [|a|]
    let fmt = args |> Array.indexed |> Array.fold (fun s e -> s + (sprintf "{%d}" (fst e))) ""
    Console.WriteLine(fmt.Trim(), args)
let write = fun a ->
    let args = if FSharpType.IsTuple(a.GetType()) then FSharpValue.GetTupleFields(a) else [|a|]

altbodhi

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

let httpAsync (progress : IProgress<string>) (url : string) = async {
    let req = System.Net.WebRequest.Create(url)
    use! resp = req.AsyncGetResponse()
    progress.Report(sprintf "%s AsyncGetResponse" url)
    use stream = resp.GetResponseStream()