tickSystemSound :: (MonadState ECS m, MonadIO m) => m ()
tickSystemSound = modifySystemState sysSound $ do
    newValue <- ssBlah <+= 1
    liftIO . print $ newValue
tickSystemSound :: (MonadState ECS m, MonadIO m) => m ()
tickSystemSound = modifySystemState sysSound $ do
    newValue <- ssBlah <+= 1
    liftIO . print $ newValue
tickSystemSound = modifySystemState sysSound $ do
    newValue <- ssBlah <+= 1
    liftIO . print $ newValue