hammingDistance :: (Eq a) => [a] -> [a] -> Int
hammingDistance = hammingDistance' 0
hammingDistance :: (Eq a) => [a] -> [a] -> Int
hammingDistance = hammingDistance' 0
hammingDistance = hammingDistance' 0