USING: combinators.short-circuit kernel math sequences
unicode.breaks.private ;

IN: unicode.breaks

: word-break-at? ( i str -- ? )
{
[ drop zero? ]
[ length = ]
[
[ nth-next [ word-break-prop ] dip ] 2keep
word-break-next nip
]
} 2|| ;