Simple implementation of K-Means clustering algorithm in Haskell