!1001362 // named threads

  static new L<PaA> injectable_programsInjected;

  static boolean injectable_on;

  static class PaA {

    S progID;

    S[] arguments;

    *(S *progID, S[] *arguments) {}

    *() {}

  }

  static synchronized void injectable() {

    if (injectable_on) return;

    injectable_on = true;

    Android3 android = new Android3("Injectable. PID: " + getPID() + ".");

    android.responder = new Responder() {

      S answer(S s, L<S> history) {

        new Matches m;

        if (match3("please inject program *", s, m) || match3("please inject program * with arguments *", s, m)) {

          final S progID = formatSnippetID(unquote(m.m[0]));

          final S[] arguments = m.m.length > 1 ? toStringArray((List) unstructure(unquote(m.m[1]))) : new S[0];

          injectable_programsInjected.add(new PaA(progID, arguments));

          // better call JavaX for translation in a single thread.

          final Class theClass = hotwire(progID);

          // program may run in its own thread.

          thread progID {

            callMain(theClass, arguments);

          }

          ret "OK.";

        }

        ret null;

      }

    };

    makeAndroid3(android);

    print("VM " + getPID() + " made injectable.");

  }