    # 1999/7/5
    # check unique names and other names
    #   fast version using
    #     a_value (set of all values of an attribute)
    #     product := question

    !read family.ku
    #Dr. Richard H. McCullough isa person
    #!psize person

    echo=off
    $PERSON := ? isa person
    $UNIQUE := uniquename has a_value=?
    $OTHER  := othername has a_value=?

    #debug = ASSIGN
    $MISSING = $PERSON; $MISSING -= $UNIQUE
    $CONFLICT = $OTHER; $CONFLICT *= $PERSON

    every p in $MISSING do
    	!print "# MISSING uniquename: $p";
    done
    every p in $CONFLICT do
    	!print "# CONFLICT othername: $p";
    done
    echo=on

    !exit