Script for identification of haplotype clusters in Medicago genes.