(loop(princ(princ(read-char))))