(define (port->string-list port)
  (let ((line (read-line port)))
	(if (eof-object? line)
		(list)
		(cons line (port->string-list port)))))