anchor.diff:               ("getEntities", { Fn = evalGetEntitiesBinding; Pars = [|"group"|]; DocOpt = None })
                ("getEntityRoots", { Fn = evalGetEntityRootsBinding; Pars = [|"group"|]; DocOpt = None })
                ("getEntitySovereigns", { Fn = evalGetEntitySovereignsBinding; Pars = [|"group"|]; DocOpt = None })
  +             ("destroyEntity", { Fn = evalDestroyEntityBinding; Pars = [|"entity"|]; DocOpt = None })
  +             ("destroyEntities", { Fn = evalDestroyEntitiesBinding; Pars = [|"entities"|]; DocOpt = None })
                ("tryPickEntity", { Fn = evalTryPickEntityBinding; Pars = [|"position"; "entities"|]; DocOpt = None })
                ("writeEntityToFile", { Fn = evalWriteEntityToFileBinding; Pars = [|"filePath"; "enity"|]; DocOpt = None })
                ("createEntity", { Fn = evalCreateEntityBinding; Pars = [|"dispatcherName"; "names"; "overlayDescriptor"; "group"|]; DocOpt = None })
                ("readEntityFromFile", { Fn = evalReadEntityFromFileBinding; Pars = [|"filePath"; "nameOpt"; "group"|]; DocOpt = None })
  +             ("renameEntity", { Fn = evalRenameEntityBinding; Pars = [|"source"; "destination"|]; DocOpt = None })
                ("trySetEntityOverlayNameOpt", { Fn = evalTrySetEntityOverlayNameOptBinding; Pars = [|"overlayNameOpt"; "entity"|]; DocOpt = None })
                ("trySetEntityFacetNames", { Fn = evalTrySetEntityFacetNamesBinding; Pars = [|"facetNames"; "entity"|]; DocOpt = None })
                ("getEyeCenter", { Fn = evalGetEyeCenterBinding; Pars = [||]; DocOpt = None })
  
positive.code:                         simulants
                  | struct (Scripting.Violation (_, error, _), _) -> failwith error
                  | struct (_, _) -> failwith "Expecting a list of relations."
              let result = World.tryPickEntity position entities world
              let value = result
              let value = ScriptingSystem.tryImport typeof<FSharpOption<Entity>> value world |> Option.get
  
negative.code:                 struct (violation, world)
          | Some violation -> struct (violation, world)
  
      let evalDestroyEntityBinding fnName exprs originOpt world =
          let struct (evaleds, world) = World.evalManyInternal exprs world
          match Array.tryFind (function Scripting.Violation _ -> true | _ -> false) evaleds with
          | None ->
              match evaleds with
              | [|entity|] -> destroyEntity entity world
              | _ ->
                  let violation = Scripting.Violation (["InvalidBindingInvocation"], "Incorrect number of arguments for binding '" + fnName + "' at:\n" + SymbolOrigin.tryPrint originOpt, None)
                  struct (violation, world)
          | Some violation -> struct (violation, world)
  
      let evalDestroyEntitiesBinding fnName exprs originOpt world =
          let struct (evaleds, world) = World.evalManyInternal exprs world
          match Array.tryFind (function Scripting.Violation _ -> true | _ -> false) evaleds with
          | None ->
              match evaleds with
              | [|entities|] -> destroyEntities entities world
              | _ ->
                  let violation = Scripting.Violation (["InvalidBindingInvocation"], "Incorrect number of arguments for binding '" + fnName + "' at:\n" + SymbolOrigin.tryPrint originOpt, None)
                  struct (violation, world)
          | Some violation -> struct (violation, world)
  
      let evalTryPickEntityBinding fnName exprs originOpt world =
          let struct (evaleds, world) = World.evalManyInternal exprs world
          match Array.tryFind (function Scripting.Violation _ -> true | _ -> false) evaleds with
  