Information Theory encoding algorithms library in erlang

[Kay Kay]

I am looking for some implementations of encoding algorithms ( huffmann 
etc. ) in erlang. Of course - using google / koders.com to figure out 
the bits and pieces , but curious to see if anybody has a repository / 
resource suggestion as a starting point for the same. I have the 
material that covers the appropriate theory but looking for specific 
implementations regarding the same.  Thanks for the help.