(thread-start! (lambda ()
		 (let ((old (current-input-port)))
		   (current-input-port (make-parley-port old))
		   (let loop ()
		     (handle-exceptions exn
					(begin
					  (printf "~a\n" ((condition-property-accessor 'exn 'message) exn))
					  (loop))
					(repl))))))