static L<Lisp> riddle(L<Lisp> facts, S riddle) {
  ret concatLists(facts, clParse(sentencesToCL(riddle)));
}