open Lwt let out_s = Lwt_io.write Lwt_io.stdout;; lwt () = (out_s "Started\n") >> (((Lwt_unix.sleep 1.) >> (out_s "Heads\n")) <&> ((Lwt_unix.sleep 2.) >> (out_s "Tails\n"))) >> (out_s "Finished\n");; OCAML_PACK = unix,lwt,lwt.unix,lwt.syntax all: @ocamlfind ocamlc -syntax camlp4o \ -package $(OCAML_PACK) devoir.ml \ -linkpkg -o devoir clean: rm -f devoir a.out