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