sig
  type subsystem =
      [ `AUDIO
      | `EVENTS
      | `GAMECONTROLLER
      | `HAPTIC
      | `JOYSTICK
      | `TIMER
      | `VIDEO ]
  external init :
    [< `AUDIO
     | `EVENTS
     | `EVERYTHING
     | `GAMECONTROLLER
     | `HAPTIC
     | `JOYSTICK
     | `NOPARACHUTE
     | `TIMER
     | `VIDEO ]
    list -> unit = "caml_SDL_Init"
  external init_subsystem : Sdlinit.subsystem list -> unit
    = "caml_SDL_InitSubSystem"
end