(require-extension parley)

(define (handle-sigint sig)
  (display "interrupted!\n"))

(set-signal-handler! signal/int handle-sigint)

(define (reader-loop)
  (display (parley "test> ")
	   (reader-loop)))

(reader-loop)