val append_phrase_sep: string -> string
val strip_trailing_blanks: string -> string
+val strip_trailing_slash: string -> string
+
+val list_uniq: 'a list -> 'a list (* uniq unix filter on lists *)
(** @raise Failure *)
val unopt: 'a option -> 'a
(** given the base name of an image, returns its full path *)
val image_path: string -> string
+val obj_file_of_script: string -> string