let basename = Str.global_replace rex "" in
let suffix name =
ignore (Str.search_forward rex name 0);
let n = Str.matched_string name in
let basename = Str.global_replace rex "" in
let suffix name =
ignore (Str.search_forward rex name 0);
let n = Str.matched_string name in