#include "iron_kmeans.hsp"
	dimtype x, 3, 6
	dimtype y, 3, 6
	x=1.0:x(1)=1.5:x(2)=2.0:x(3)=8.0:x(4)=8.5:x(5)=9.0
	y=1.0:y(1)=2.0:y(2)=1.0:y(3)=8.0:y(4)=9.0:y(5)=8.0
	dim labels, 6
	kmeans_cluster x, y, 6, 2, labels
	repeat 6 : mes "point "+cnt+" cluster="+labels(cnt) : loop