+(* FG ***********************************************************************)
+
+(* true if the argunent starts with a uri scheme prefix *)
+val is_uri: string -> bool
+
+(* Valid values: 0: no debug; 1: normal debug; > 1: extra debug *)
+val debug: int ref
+
+val time_stamp: string -> unit