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