run :: AppController -> IO ()
run app = do
  showCursor False
  enableKeyRepeat 200 10
  -- TODO: make the first render
  loop app
  SDL.quit
run :: AppController -> IO ()
run app = do
  showCursor False
  enableKeyRepeat 200 10
  -- TODO: make the first render
  loop app
  SDL.quit
run app = do
  showCursor False
  enableKeyRepeat 200 10
  -- TODO: make the first render
  loop app
  SDL.quit