sub ucompare {
    my($s, $t) = @_;
    use Unicode::Normalize;
    print "NFC-equivalent" if NFC($s) eq NFC($t);
    print "NFKC-equivalent" if NFKC($s) eq NFKC($t);
  }