+(defun cui-p (ui)
+ "Check if a string is a CUI"
+ (check-ui ui #\C 7))
+
+(defun lui-p (ui)
+ "Check if a string is a LUI"
+ (check-ui ui #\L 7))
+
+(defun sui-p (ui)
+ "Check if a string is a SUI"
+ (check-ui ui #\S 7))
+
+(defun tui-p (ui)
+ (check-ui ui #\T 3))
+
+(defun eui-p (ui)
+ (check-ui ui #\E 7))
+
+(defun check-ui (ui start-char len)
+ (when (and (stringp ui)
+ (= (length ui) (1+ len))
+ (char-equal start-char (schar ui 0))
+ (ignore-errors (parse-integer ui :start 1)))
+ t))
+
+