use CHISE;

my $s1 = CHISE->new(daikanwa => 6942); # ã€Œå­—ã€
print $s1->dumpAttr;
print $s1->strokes, "\n"; # ø½Šæ•°ã‚’è¡¨ç¤º
