Global thing_to_examine;

[ UnknownVerb o n i;
  objectloop (o provides name) {
    if (TestScope(o, player)) {
      n = o.#name / WORDSIZE;
      for(i = 0 : i < n : i++) {
        if (Refers(o, 1)) {
          thing_to_examine = o;
          return 'unknown';
        };
      };
    };
  };
  rfalse;
];

[ ExamineObjectSub;
<< Examine (thing_to_examine) >>;
];

verb 'unknown' * -> ExamineObject;