let skip_end_slashes s ~from =
      match string_rexists s ~from ~f:(fun c -> c <> '/'with
      | Some v -> `Ends_at v
      | None   -> `All_slashes