(define (poll)
  (cond
    ;; if I already typed something, read without blocking
    ((char-ready?) (eval (read)) (newline)))) 

(define (mainloop)
  ;; if the app needs to remind me of stuff, it can annoy me
  (be-annoying)
  (poll)
  (thread-sleep! 0.1)
  (mainloop))