#require "lwt.unix"

let program =

  let (sleeper, wake_up) = Lwt.wait () in
  let t = Lwt_timeout.create 2 begin fun () ->
      print_endline "time out finished"
    end
  in
  Lwt_timeout.start t;
  sleeper

let () =
  Lwt_main.run program