main2 = do
  action <- runACoreBehavior $ \tick -> do
    rTime <- foldEs (\(!a) (!b) -> a + b) 0 tick
    return rTime

  mapM_ (\_ -> action) [0..1000000]
main2 = do
  action <- runACoreBehavior $ \tick -> do
    rTime <- foldEs (\(!a) (!b) -> a + b) 0 tick
    return rTime

  mapM_ (\_ -> action) [0..1000000]
main2 = do
  action <- runACoreBehavior $ \tick -> do
    rTime <- foldEs (\(!a) (!b) -> a + b) 0 tick
    return rTime

  mapM_ (\_ -> action) [0..1000000]