blockReward :: Block -> Rational
blockReward b = toRational (reward $ blockHeight b) / 100000000
blockReward :: Block -> Rational
blockReward b = toRational (reward $ blockHeight b) / 100000000
blockReward b = toRational (reward $ blockHeight b) / 100000000