* it *)
val append_phrase_sep: string -> string
-val strip_trailing_blanks: string -> string
+val trim_blanks: string -> string
val strip_trailing_slash: string -> string
+val normalize_dir: string -> string (** add trailing "/" if missing *)
+val strip_suffix: suffix:string -> string -> string
(* split a string at character, char defaults to ' ' *)
val split: ?char:char -> string -> string list