anchor.diff:  open System.Collections.Concurrent
   open System.Collections.Generic
   open System.IO
  -open System.Threading
   open System.Threading.Tasks
   open Prime
   
  
positive.code:         world
  
      override this.ProcessActualize ecs world =
          let _ = Vsync.RunSynchronously (processParallel (fun system -> system.ProcessPostUpdate ecs))
          world
  
      type 'w Ecs with
  
          member this.RegisterSubsystem<'t when 't : struct and 't :> Component> systemName subsystemName subsystem =
              match this.TryIndexSystem<'w SystemParallel> systemName with
              | Some system -> system.RegisterSubsystem subsystemName subsystem
              | None -> failwith ("Could not find expected system '" + systemName + "'.")
  
          member this.UnregisterSubsystem<'t when 't : struct and 't :> Component> systemName subsystemName =
              match this.TryIndexSystem<'w SystemParallel> systemName with
              | Some system -> system.UnregisterSubsystem subsystemName
              | None -> failwith ("Could not find expected system '" + systemName + "'.")
negative.code:             &system.Component
  
  /// An Ecs system with components stored by a raw index.
  type [<AbstractClass>] SystemUncorrelated<'t, 'w when 't : struct and 't :> Component> () =
      inherit SystemMany<'w> ()
  
  