struct
    type t = s
    let length = length
    let compare_substring = compare_substring
  end