1 2 3 4 5 6 7 8 9 10
(* $Id$ *) (*s Time stamps. *) type time_stamp val get_time_stamp : unit -> time_stamp val compare_time_stamps : time_stamp -> time_stamp -> int