- $uninfo->{ chr $di->{$_} }->[0], # class
- (map {('', $_)} $uninfo->{ chr $di->{$_} }->[4] // ()), # string
+ $vim->{$_}
+ ? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim-only
+ : 'u-prop ex', # neither
+ $uninfo->{ chr $di->{$_} }->[0] =~ s/ u-di| u-prop| ex//gr, # class
+ $uninfo->{ chr $di->{$_} }->[4] // (), # string