define temp-table tt
    field words as character extent 5
    field id as integer
    index word_idx is word-index words.

create tt.
assign tt.words[1] = "a | b | c"
       tt.words[2] = "d | e | f"
       tt.id = 1.
release tt.

create tt.
assign tt.words[1] = "d | e | f"
       tt.words[2] = "a | b | c"
       tt.id = 1.
release tt.

create tt.
assign tt.words[1] = "d | e | f"
       tt.words[2] = "a | b | c"
       tt.id = 1.
release tt.

create tt.
assign tt.words[1] = "g | g | g"
       tt.words[2] = "g g g"
       tt.words[3] = "g g g"
       tt.words[4] = "g g g"
       tt.words[5] = "g g g"
       tt.id = 1.
release tt.

create tt.
assign tt.words[1] = "g | g | g"
       tt.words[2] = "g g g"
       tt.words[3] = "g g g"
       tt.words[4] = "g g g"
       tt.words[5] = "g g g"
       tt.id = 1.
release tt.

def var i as int.
def var l1 as int64.
def var l2 as int64.
def var k as int.

k = 0.
l1 = mtime.
do i = 1 to 100000:
    for each tt where tt.words contains "d c": 
        k = k + 1.
    end.
end.
l2 = mtime.

message "Search: d" k "in" (l2 - l1) "ms".

k = 0.
l1 = mtime.
do i = 1 to 100000:
    for each tt where tt.words contains "a c": 
        k = k + 1.
    end.
end.
l2 = mtime.

message "Search: a" k "in" (l2 - l1) "ms".