(defconstant +cuisui-scale+ 10000000)
(declaim (type fixnum +cuisui-scale+))
(defun make-cuisui (cui sui)
(declare (fixnum cui sui)
(defconstant +cuisui-scale+ 10000000)
(declaim (type fixnum +cuisui-scale+))
(defun make-cuisui (cui sui)
(declare (fixnum cui sui)