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