Great!

```haskell
*Huffman> :t uncurry
uncurry :: (a -> b -> c) -> (a, b) -> c
*Huffman> uncurry Leaf ('a',2)
Leaf 'a' 2
```