anchor.diff:      ()
       fun c -> if c.ct.IsCancellationRequested then cancel c else r c
   
  -[<JavaScript>]
  +[<JavaScript; Pure>]
   let Return (x: 'T) : C<'T> =
       checkCancel <| fun c -> c.k (Ok x)
   
  -[<JavaScript>]
  +[<JavaScript; Pure>]
   let Bind (r: C<'T>, f: 'T -> C<'R>) =
       checkCancel <| fun c ->
           r { 
  
positive.code:                 else c2.k (No (System.TimeoutException()))
          c.k (Ok r2)
  
  [<JavaScript>]
  let OnCancel (action: unit -> unit) : C<System.IDisposable> =
      checkCancel <| fun c -> c.k (Ok (Register c.ct action))
  
  [<JavaScript>]
  let TryCancelled (run: C<'T>, comp: OCE -> unit) : C<'T> =
      checkCancel <| fun c ->
          run {
  
negative.code:             ) 
          ()
  
  [<JavaScript; Pure>]
  let AwaitTask (t: System.Threading.Tasks.Task) : C<unit> =
      FromContinuations (fun (ok, err, cc) ->
          if t.Status = System.Threading.Tasks.TaskStatus.Created then
  