Trying to do BeforeParsing mk 2

We can't ignore disambiguation after all.

examine_en.h

@@ -1,21 +1,24 @@
 Global thing_to_examine;
 
-[ UnknownVerb word thing n i;
+[ BeforeParsing thing n i;
+  if (num_words > 1) {
+    rfalse;
+  }
+  thing_to_examine = NextWord();
+  ! Check that such thing exists in scope, so that we don't catch
+  ! compass directions or gibberish.
   objectloop ( thing provides name) {
     if (TestScope(thing, player)) {
       n = thing.#name / WORDSIZE;
       for(i = 0 : i < n : i++)
-        if (thing.&name-->i == word) {
-          thing_to_examine = thing;
-          return 'unknown';
+        if (thing.&name-->i == thing_to_examine) {
+          ! At least one such thing exists, we can alter the input
+          buffer->0 = 'examine';
+          buffer->1 = thing_to_examine;
+          Tokenise__(buffer, parse);
+          rtrue;
         }
     };
   };
   rfalse;
 ];
-
-[ ExamineObjectSub;
-  << Examine (thing_to_examine) >>;
-];
-
-verb 'unknown' * -> ExamineObject;