anchor.diff:        let registration = token.Register (fun () ->
           OperationCanceledException ()
           |> IVar.fillFailure cancelled
  -        |> Scheduler.startIgnore (initGlobalScheduler ()))
  +        |> Scheduler.startIgnore ^ initGlobalScheduler ())
         let ctx = SynchronizationContext.Current
         Worker.RunOnThisThread (initGlobalScheduler (), cancelled <|> xA, {new Cont_State<'x, Cont<unit>>() with
          override xK'.GetProc (wr) = Handler.GetProc (&wr, &xK'.State)
  
positive.code:       override uJ'.Do () =
          if cond () then upcast u2xJ () else null} :> Job<_>
    let inline whileDoIgnore (cond: unit -> bool) (xJ: Job<_>) =
      whileDoDelay cond (fun () -> xJ)
    let inline whileDo cond (uJ: Job<unit>) =
      whileDoIgnore cond uJ
  
  
negative.code:       override xJ'.DoCancel (iar) = doCancel iar} :> Alt<_>
  
    let inline fromAsync (xA: Async<'x>) =
      let (doBegin, doEnd, doCancel) = Async.AsBeginEnd ^ fun () -> xA
      fromBeginEnd (fun (acb, s) -> doBegin ((), acb, s)) doEnd doCancel
  
    let toAsync (xA: Alt<'x>) =
  