ocaml/test2.ml

   1 open Printf
   2 open Unix
   3
   4 let () =
   5   printf "$HOME = %S\n%!"
   6     (try Unix.getenv "HOME" with Not_found -> "(none)");
   7   printf "gettimeofday = %f\n%!" (Unix.gettimeofday ())
   8