Expert system realized in lisp : the goal is to find the snake that bit you