(princ(char-int(read-char)))