let
is_suffix t ~suffix = is_prefix (
List
.rev t) ~prefix:(
List
.rev suffix)