anchor.diff:                  let index = Seq.head this.FreeList
                   let _ : bool = this.FreeList.Remove index
                   this.Correlations.Add (entityId, index)
  +                this.CorrelationsBack.Add (index, entityId)
                   let mutable comp = comp.Junction systems entityId ecs
                   comp.RefCount <- inc comp.RefCount
                   this.Components.Array.[index] <- comp
  
positive.code:     member internal this.FreeList with get () = freeList
      member internal this.PreDeque with get () = preDeque
      member internal this.Correlations with get () = correlations
  
      abstract ComponentToBytes : 'c -> char array
      default this.ComponentToBytes _ = failwithnie ()
  
negative.code:                 let index = Seq.head preDeque
                  let _ : bool = preDeque.Remove index
                  correlations.Add (entityId, index)
                  correlationsBack.Add (index, entityId)
                  components.Array.[index] <- comp
                  let comp = &components.Array.[index]
                  comp.RefCount <- inc comp.RefCount
  