let () =
  Sdl.init [`VIDEO];
  let _ = Sdlvideo.set_video_mode 200 200 [] in
  Sdltimer.delay 2000;
  Sdl.quit ()