Haskell implementation of the Bitcoin protocol