"." write flush
{
- member-eq? split harvest sift cut cut-slice subseq-start find-subseq
+ member-eq? split harvest sift cut cut-slice subseq-start subsequence-starts
index clone set-at reverse push-all class-of number>string string>number
like clone-like
} compile-unoptimized