!7

p {
  ai_alternativeSmartBot();
  ai_useThoughtSpaces(true);
  
  ActualThoughtSpace myTS = new ActualThoughtSpace(currentThoughtSpace());
  thoughtSpace(myTS);
  
  myTS.blockedPatterns.add(t3("Haskell", "is", "$Y"));
  assertContainsIC(pnl(ai_texts("Java", "is", "$X")), "a programming language");
  
  myTS.blockedPatterns.add(t3("Java", "is", "$Y"));
  assertDoesntContainIC(pnl(ai_texts("Java", "is", "$X")), "a programming language");
  
  myTS.blockedPatterns.remove(t3("Java", "is", "$Y"));
  assertContainsIC(pnl(ai_texts("Java", "is", "$X")), "a programming language");

  print("OK");
}