let mutable success = None
let mutable except = None
let mutable cancel = None
let catchContinuations (s, e, c) =
    success <- Some s
    except <- Some e
    cancel <- Some c

async {
    do! Async.FromContinuations catchContinuations
    printfn "Test"
} |> Async.StartImmediate

let inline analyze x =
    printfn ".ToString () = %A" <| x.ToString ()
    printfn "%%A = %A" x
    let t = x.GetType ()
    printfn "Type: %A" t
    printfn "Members: %A" <| t.GetMembers (enum -1)

[<EntryPoint>]
do
    printfn "success"
    analyze success.Value
    printfn "\nexcept"
    analyze except.Value
    printfn "\ncancel"
    analyze cancel.Value