(define (load-input input-port lst)
    ( let ((line (read-line input-port)))
        (cond ((eof-object? line) lst)
            (else (load-input input-port (cons line lst))))))