[Haskell-beginners] very impure [global] counter