screenInit :: Int -> Int -> Int -> String -> IO Screen
screenInit width height bpp caption = do
  SDL.init [SDL.InitEverything]
  surface <- SDL.setVideoMode width height bpp [SDL.SWSurface]
  SDL.setCaption caption ""
  return $ Screen surface width height bpp
screenInit :: Int -> Int -> Int -> String -> IO Screen
screenInit width height bpp caption = do
  SDL.init [SDL.InitEverything]
  surface <- SDL.setVideoMode width height bpp [SDL.SWSurface]
  SDL.setCaption caption ""
  return $ Screen surface width height bpp
screenInit width height bpp caption = do
  SDL.init [SDL.InitEverything]
  surface <- SDL.setVideoMode width height bpp [SDL.SWSurface]
  SDL.setCaption caption ""
  return $ Screen surface width height bpp