add blog: 用 Haskell 实现 newCounter ：IORef 和 STRef