Plaster

(loop for v = (read stream nil stream) until (eq v stream) do (stuff))