let is_suffix t ~suffix =     let len = A.length suffix and lt = A.length t in     sub_same_tl t ~comp:suffix ~len ~off:(lt - len)