machine learning agorithm with lisp implement