1 2 3 4 5 6 7 8 9 10
(* TEST ocamlopt_flags += " -O3 "; *) open Domain let () = let l = lazy (print_string "Lazy Forced\n") in let d = spawn (fun () -> Lazy.force l) in join d