(loop(princ(read-line)))