A Chinese segment package in common lisp