An implementation of expectation maximization and k-means clustering in Common Lisp