k-means clustering implementation in f#