+(require 'ideograph-util)
+
+(defun ideographic-structure-find-char (structure)
+ (dolist (product (char-feature (nth 1 structure) 'ideographic-products))
+ (if (equal structure
+ (char-feature product 'ideographic-structure))
+ (return product))))
+