1: C: the cluster list
2: MaxPair: the cluster pair(c, k) with max interconnections among all cluster pair
3: Max.value: interconnections between cluster pair c and k
4: MaxPair ← findMaxPair(C,null)
5: while Max.value ≥ do
6:    newCluster ← merge MaxPair c and k
7:    Replace cluster c with newCluster
8:    Remove cluster k
9:    MaxPair ← findMaxPair(C,newCluster)
10: end while
11: return C