Some really cool Haskell clustering function, the implementation uses Arrows (seen at http://debasishg.blogspot.com/2009/01/seeking-scala-equivalent-for-this.html).