v2m

        type System.Net.WebClient with
            member inline internal this.DownloadWithWebClient(addHandler, removeHandler, extract, start)  = 
                let downloadAsync =
                    Async.FromContinuations (fun (cont, econt, ccont) ->
                        let userToken = new obj()
                        let rec handler (_: obj) (args: 'T :> ComponentModel.AsyncCompletedEventArgs) = 
                            if userToken = args.UserState then
                                removeHandler handle
                                if args.Cancelled then
                                    ccont (new OperationCanceledException()) 

v2m

function foo(v) {
    var x;
    var y;
    
    function bar() {
        return x + y;
    }
    if (v) {
        x = 5;
        return bar();

v2m

    let rec takeFreshConsTail cons n l =
        match l with
        | [] -> 
            if n <> 0 then failwith "insufficient length"
            setFreshConsTail cons []
        | x::xs ->
            if n > 0 then
                let cons2 = freshConsNoTail x
                setFreshConsTail cons cons2
                takeFreshConsTail cons2 (n - 1) xs

v2m

    let rec takeWhileFreshConsTail cons p l =
        match l with
        | [] -> 
            setFreshConsTail cons []
        | x::xs ->
            if p x then
                let cons2 = freshConsNoTail x
                setFreshConsTail cons cons2
                takeWhileFreshConsTail cons2 p xs
            else

v2m

        [<CompiledName("SplitAt")>]
        let splitAt (n: int) (list: 'T list) = Microsoft.FSharp.Primitives.Basics.List.splitAt n list

v2m

using System;

interface IContainer
{
    object Obj { set; }
}
struct P : IContainer
{
    public object Obj { set { this.o = value; } }
    object o;

v2m

var x = /°+/

v2m

type A private() = 
    [<DefaultValue>]
    val mutable x: string
    new(x : string) = 
        if x = null then nullArg "x"
        A()
        then
        printfn "x=%s" x

type B(x : string) = 

v2m

type A() = 
    [<DefaultValue>]
    val mutable x: string
    new(x : string) = 
        if x = null then nullArg "x"
        A()
        then
        printfn "x=%s" x

type B(x : string) = 

v2m

type A = 
    val x: string
    new(x : string) = 
        if x = null then nullArg "x"
        {x = x}
        then
        printfn "x=%s" x