2018-06-22 20:57:24 +00:00
|
|
|
import Data.IORef
|
|
|
|
|
import Control.Monad.Loops
|
2013-04-10 21:29:02 -07:00
|
|
|
|
2018-06-22 20:57:24 +00:00
|
|
|
main :: IO ()
|
|
|
|
|
main = do r <- newIORef 1024
|
|
|
|
|
whileM_ (do n <- readIORef r
|
|
|
|
|
return (n > 0))
|
|
|
|
|
(do n <- readIORef r
|
|
|
|
|
print n
|
|
|
|
|
modifyIORef r (`div` 2))
|
