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