>Rand(-1)
>Create Cursor test1 (Id i)
>Create Cursor test2 (Id i, f1 c(1))
>
>For ix=1 To 10
>  Insert Into test1 Values (m.ix)
>  For jx=1 To 5
>    Insert Into test2 Values (m.ix,Chr(Asc('A')+Rand()*26))
>  Endfor
>Endfor
>
>lnCalled = 0
>Select * from test1 ;
>  where id in (select id from test2 where f1 == "H" and HowManyTimes())
>? m.lnCalled
>
>Function HowManyTimes
>lnCalled = m.lnCalled + 1
>