!7

sclass CruddieScript {
  swappable void assume(S fact) {}
  S answer(S s) { null; }
}

sclass ICallYou > CruddieScript {
  swappable void setBotName(S name) {}
  swappable S getBotName() { null; }
  
  S answer(S s) null {
    new Matches m;
    
    if "I call you $name" { // fancy dollar var syntax with automatic var declaration of $name
      assume("\*$name*/ is a name");
      setBotName($name);
      ret "OK, my name is now \*$name*/";
    }
    
    if "What is your name"
      ret or2(getBotName(), "I don't know");
  }
}

p-exp {
  new ICallYou s;
  s.setBotName = lambda1 print;
  testFunctionValues(x -> s.answer((S) x),
    "I call you Horst",
    "OK, my name is now Horst");
}