Haskell implementation of the Bitcoin protocol - View it on GitHub