let
chop_suffix_exn t ~suffix =
List
.rev (chop_prefix_exn (
List
.rev t) ~prefix:(
List
.rev suffix))