[Haskell-beginners] My Bitcoin miner