[Haskell Huffman coding] Started working on heap method