Attempt at implemting the KMeans algorithm in Haskell.