screensaver example in ocaml