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