bitmessage implementation in haskell