let strip_starts_with ~what str = if starts_with ~what str then sub_start str (String.length what) else raise Not_found