4 my $s1 = CHISE->define_char(strokes => 12, radical => 9);
5 my $s2 = CHISE->define_char(strokes => 12, radical => 9, daikanwa => 694);
6 my $c = $s1->compare($s2);
8 if ($c == $CHISE::EXCLUSIVE) {
10 } elsif ($c == $CHISE::HAVE_INTERSECTION) {
12 } elsif ($c == $CHISE::PROPER_SUBSET) {
14 } elsif ($c == $CHISE::PROPER_SUPERSET) {
16 } elsif ($c == $CHISE::EQSET) {