let
get_suffix s =
let
parts =
Str
.(split (regexp
"\\."
)) s
in
List
.(nth parts (length parts - 1))