(* An example with threads. *)

let rec printer () =
  Thread.delay 100000;
  putStr "x";
  flush ();
  printer ()

let timer () =
  let id = Thread.fork printer in
    Thread.delay 2000000;
    Thread.kill id

in timer ()