+(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))
+
+