let chop_suffix t ~suffix =
    try Some (chop_suffix_exn t suffix)
    with _ -> None