anchor.diff:  
       member this.Allocate comp comp2 comp3 comp4 comp5 comp6 comp7 world =
           let world =
  -            if Seq.isEmpty unallocated
  +            if unallocated.Count = 0
               then this.Preallocate Constants.Ecs.PreallocateAmount world
               else world
           let entityIdInv = Seq.head unallocated
  
positive.code:         world
  
      member this.TryClear world =
          if Seq.isEmpty allocated then
              let mutable world = world
              for entityIdInv in unallocated do
                  let entityId = UInt64.MaxValue - entityIdInv
  
negative.code: 
      member this.Allocate comp comp2 comp3 comp4 comp5 world =
          let world =
              if unallocated.Count = 0
              then this.Preallocate Constants.Ecs.PreallocateAmount world
              else world
          let entityIdInv = Seq.head unallocated
  