(defun lines (stream)
   (loop :for line = (reaad-line stream nil nil)
         :while line
         :collect line))