(loop (write-line "SPAM"))