(define listener-callback
(lambda (time delta-t)
(let ((res (cptr->string (listener))))
(if (not (string=? res ""))
(println 'listener 'received: res)))
(let ((next-time (max (+ time (* *second* delta-t)) (now))))
(callback next-time
'listener-callback
next-time
delta-t))))