-- | Arbitrary amount of Satoshi as Word64 (Between 1 and 21e14)
arbitrarySatoshi :: Gen TestCoin
arbitrarySatoshi = TestCoin <$> choose (1, maxSatoshi)
arbitrarySatoshi :: Gen TestCoin
arbitrarySatoshi = TestCoin <$> choose (1, maxSatoshi)
arbitrarySatoshi = TestCoin <$> choose (1, maxSatoshi)