anchor.diff:                          simulants
                   | struct (Scripting.Violation (_, error, _), _) -> failwith error
                   | struct (_, _) -> failwith "Expecting a list of relations."
  +            let result = World.destroyEntities entities world
  +            struct (Scripting.Unit, result)
  +        with exn ->
  +            let violation = Scripting.Violation (["InvalidBindingInvocation"], "Could not invoke binding 'destroyEntities' due to: " + scstring exn, None)
  +            struct (violation, World.choose oldWorld)
  +
  +    let tryPickEntity position entities world =
  +        let oldWorld = world
  +        try
  +            let position =
  +                match ScriptingSystem.tryExport typeof<Vector2> position world with
  +                | Some value -> value :?> Vector2
  +                | None -> failwith "Invalid argument type for 'position'; expecting a value convertable to Vector2."
  +            let struct (entities, world) =
  +                let context = World.getScriptContext world
  +                match World.evalInternal entities world with
  +                | struct (Scripting.List simulants, world) ->
  +                    List.fold (fun struct (simulants, world) simulant ->
  +                        match simulant with
  +                        | Scripting.String str
  +                        | Scripting.Keyword str ->
  +                            let relation = Relation.makeFromString str
  +                            let address = Relation.resolve context.SimulantAddress relation
  +                            struct (Entity address :: simulants, world)
  +                        | Scripting.Violation (_, error, _) -> failwith error
  +                        | _ -> failwith "Relation must be either a String or Keyword.")
  +                        struct ([], world)
  +                        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
  
positive.code:         | None ->
              match evaleds with
              | [|filePath; nameOpt; group|] -> readEntityFromFile filePath nameOpt group world
              | _ ->
                  let violation = Scripting.Violation (["InvalidBindingInvocation"], "Incorrect number of arguments for binding '" + fnName + "' at:\n" + SymbolOrigin.tryPrint originOpt, None)
                  struct (violation, world)
  
negative.code:              ("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 })
  