int n=0
Column c
Object o
Module m
Buffer b = create
for o in document m do {
b = text(column 0, o) text(column 1,o) text(column 2,o)
string s = stringOf b
string sub ="XXX"
if (findPlainText(s, sub, offset, len, true)) { n += 1 }
}
print n

Buffer buf = create()
buf = "abc 123 abc 987 abc"
int index = 0
while(true)
{
    index = contains(buf, "abc", index)
    if(0 <= index)
    {
        print index "n"
        index += length("abc")
    }
    else { print "stopn" ; break }
}
delete(buf)

0
8
16
stop