4 let times = Unix.times () in
5 let stamp = times.Unix.tms_utime in
6 let lap = stamp -. !old in
7 Printf.printf "UTIME STAMP (%s): %f (%f)\n" msg stamp lap; flush stdout;
11 let gmt = Unix.gmtime (Unix.time ()) in
12 let yy = gmt.Unix.tm_year + 1900 in
13 let mm = gmt.Unix.tm_mon in
14 let dd = gmt.Unix.tm_mday in
15 let h = gmt.Unix.tm_hour in
16 let m = gmt.Unix.tm_min in
17 let s = gmt.Unix.tm_sec in
18 Printf.printf "UTC TIME STAMP (%s): %u/%u/%u %u:%u:%u\n"