char.lisp initial version ready