H[x] :=
{
   N = length[x]
   sum = 0
   for [symbol, count] = countToDict[charList[x]]
      sum = sum + count/N log[count/N, 2]

   return negate[sum]
}

println[H["1223334444"]]