let strip_ends_with ~what str = if ends_with ~what str then sub_end str (String.length what) else raise Not_found