(princ(read-char))