without js -- (peek/poke, call_back)
constant Here_am_I = "Here am I"
function Query(atom pData, pLength)
    integer len = peekNS(pLength,machine_word(),0)
    if poke_string(pData,len,Here_am_I) then
        return 0
    end if
    pokeN(pLength,length(Here_am_I)+1,machine_word())
    return 1
end function
constant Query_cb = call_back(Query)