+: sequence-index-operator-last ( n seq quot -- n quot' )
+ [ [ nth-unsafe ] curry [ keep ] curry ] dip compose ; inline
+
+: find-last-index-from ( ... n seq quot: ( ... elt i -- ... ? ) -- ... i elt )
+ '[
+ _ [ sequence-index-operator-last find-last-integer ] keepd
+ index/element
+ ] bounds-check-call ; inline
+