A haskell implementation of EM-algorithm for haplotyping