(let ((s (make-string-output-stream)))
         (bt:make-thread
          (lambda ()
            (uiop:run-program "python -c \"for i in range(10): print(i); __import__('time').sleep(1)\"" :output s)))
         (sleep 5)
         (get-output-stream-string s))