(loop (princ (read-line)))