exception NoRootFor of string
-val find_root : string -> string
+val find_root: string -> string
+
+val parse_root: string -> (string*string) list
(* baseuri_of_script ?(inc:REG[matita.includes]) fname -> root, buri, fullpath
* sample: baseuri_of_script a.ma -> /home/pippo/devel/, cic:/matita/a,