(* $Id$ *)

(*s Time stamps. *)

type time_stamp

val get_time_stamp : unit -> time_stamp
val compare_time_stamps : time_stamp -> time_stamp -> int