>>> import Data.Massiv.Array as A >>> import Data.IORef >>> ref <- newIORef 0 :: IO (IORef Int) >>> A.forM_ (range Seq (Ix1 0) 1000) $ \ i -> modifyIORef' ref (+i) >>> readIORef ref 499500