    # KEHOME/knowledge/applications/Genealogy/check.htm
    # 1999/7/28
    # new syntax May/21/2003

    # check unique names and other names

    do clock od "read family history" done;
    do read from family.ku done;
    #Dr. Richard H. McCullough isa person;
    #do usize od person done;

    set echo=off;
    do clock od "check MISSING unique names" done;
    every unique isa person {
        if $unique has uniquename; else
            do print od "# MISSING uniquename: $unique" done;
        fi;
    };
    do clock od "check CONFLICT with other names" done;
    every unique isa person {
        if ? has othername +=$unique; then
            do print od "# CONFLICT with othername: $unique" done;
        fi;
    };
    do clock od "done" done;
    set echo=on;

    exit;