A naive, yet efficient, implementation of the KMeans algorithm written in Haskell