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