My toy implementation of Huffman Encoding in Haskell