static DialogIO talkToThisVM() {
  ret new talkToThisVM_IO;
}

sclass talkToThisVM_IO extends DialogIO { 
  L<S> answers = ll(thisVMGreeting());
  
  bool isLocalConnection() { true; }
  bool isStillConnected() { true; }
  int getPort() { ret vmPort(); }
  
  void sendLine(S line) {
    answers.add(or2(sendToThisVM_newThread(line), "?"));
  }
  
  S readLineImpl() ctex {
    ret popFirst(answers);
  }
  
  public void close {}
  Socket getSocket() { null; }
}

Began life as a copy of #1001076