Huffman contract
weight :: CodeTree -> Int
chars :: CodeTree -> [Char]
makeCodeTree :: CodeTree -> CodeTree -> CodeTree
times :: [Char] -> [(Char, Int)]