altbodhi

    public abstract class Result<TValue, TError>
    {
        public bool IsOk => this is Ok;
        public sealed class Ok : Result<TValue, TError>
        {
            public TValue Value { get; }
            internal Ok(TValue value) => Value = value;
        }

        public sealed class Err : Result<TValue, TError>

altbodhi

open System

type Resource () = 
    interface IDisposable with 
        member it.Dispose() = 
            do printfn "Object %A Disposed" it                
use r  = Resource()


(r :> IDisposable).Dispose()

altbodhi

#pragma indent 
// io.n
using System.Console;
macro writeln (params  a: array[expr])
    mutable exps = [];     
        foreach(e in a)
         exps = <[ Write($e); ]> :: exps;

    exps = <[ WriteLine();]> :: exps;
    exps = exps.Reverse();

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()