+(defgeneric suistr (lo))
+(defmethod suistr ((lo ulo))
+ "Return the string for a ulo object"
+ (find-string-sui (sui lo)))
+
+(defun uterm-pfstr (uterm)
+ "Return the preferred string for a uterm"
+ (dolist (ustr (s#str uterm))
+ (when (string= "PF" (stt ustr))
+ (return-from uterm-pfstr (str ustr)))))
+
+(defun remove-non-english-terms (uterms)
+ (remove-if-not #'english-term-p uterms))
+
+