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