int personDetector(tree *pt, list *tks ){
...
q = query_query("kit=pl src=check.pl");
while (t = next_token(tks)) {
sprintf(buf,"person(\%s)",t);
query_eval(q,buf);
if (query_result(q,0)) // put name(person) on tokenstream
putAtom(tks,"name",t);
}
...
}
slide: A person detector