anchor.diff:              subsystems |>
               Seq.map (fun entry -> Task.Run (fun () ->
                   let system = entry.Value
  -                do ecs.RegisterPipedValue system.PipedKey system.PipedInit
  +                do system.RegisterPipedValue ecs
                   let _ = system.ProcessUpdate ecs Unchecked.defaultof<'w>
  -                (entry.Key, ecs.IndexPipedValue<obj> system.PipedKey)) |> Vsync.AwaitTaskT) |>
  +                (entry.Key, system.IndexPipedValue ecs)) |> Vsync.AwaitTaskT) |>
               Vsync.Parallel |>
               Vsync.RunSynchronously |>
               dictPlus
  
positive.code:             subsystems |>
              Seq.map (fun entry -> Task.Run (fun () ->
                  let system = entry.Value
                  do ecs.RegisterPipedValue system.PipedKey system.PipedInit
                  let _ = system.ProcessPostUpdate ecs Unchecked.defaultof<'w>
                  (entry.Key, ecs.IndexPipedValue<obj> system.PipedKey)) |> Vsync.AwaitTaskT) |>
              Vsync.Parallel |>
              Vsync.RunSynchronously |>
              dictPlus
  
negative.code:         Seq.fold
              (fun world (_, system : 'w System) -> system.ProcessActualize this world)
              world systemsOrdered
  
      type 'w System with
          member this.RegisterPipedValue (ecs : 'w Ecs) = ecs.RegisterPipedValue<obj> this.PipedKey this.PipedInit
          member this.UnregisterPipedValue (ecs : 'w Ecs) = ecs.UnregisterPipedValue this.PipedKey
          member this.IndexPipedValue<'a> (ecs : 'w Ecs) = ecs.IndexPipedValue<'a> this.PipedKey
  
  /// An Ecs system with just a single component.
  and [<AbstractClass>] SystemSingleton<'t, 'w when 't : struct and 't :> Component> (comp : 't) =
  