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:     {new TaskToJob () with
        override xJ'.Start () = u2uT ()} :> Job<unit>
  
    let inline liftTask x2yT x = fromTask (fun () -> x2yT x)
    let inline liftUnitTask x2uT x = fromUnitTask (fun () -> x2uT x)
  
    let inline awaitTask (xT: Task<'x>) = fromTask (fun () -> xT)
    let inline awaitUnitTask (uT: Task) = fromUnitTask (fun () -> uT)
  
    let inline bindTask (x2yJ: 'x -> #Job<'y>) (xT: Task<'x>) =
      {new BindTask<'x, 'y> () with
  
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>) =
  