let chop_prefix t ~prefix =
    try Some (chop_prefix_exn t prefix)
    with _ -> None