Cohen_modal_haplotype loading ...