starts-Q:toolbelt — ordinary primitive
FORTH
STARTS? ( str len pattern len2 -- str len flag )(
)
Check start of string.
: STARTS? DUP >R 2OVER R> MIN COMPARE 0= ;