Global thing_to_examine;

[ IdObj name_o   o n i;
   objectloop (o in location && o provides name) {
      n = o.#name / WORDSIZE;
      for(i = 0 : i < n : i++)
         if (o.&name-->i == name_o) return o;
   }
   rfalse;
];

[ UnknownVerb word;
   thing_to_examine = IdObj(word);
   if (thing_to_examine) return 'unknown';
   rfalse;
];

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

verb 'unknown' * -> ExamineObject;