integer test_list( list src, list test ){
    integer test_items = llGetListLength(test);
    integer retval;
    integer i = 0;
    while( i < test_items ){
        retval += ( llListFindList(src,llList2List(test, i, i)) >= 0 );
        i++;
    }
    return (retval > 0);
}