Common lisp app for rule induction