Barebones start of haplotype scoring code.