(define s (tcp-listen 1234))
(print "********** PLEASE CONNECT YOUR DEBUGGER")
; this blocks
(define-values (i o) (tcp-accept s))
; until I do $ adb shell nc -v localhost 1234

(print "going to read one char")
; this hangs until I get "timeout error"
(print "char is " (read-char i))
; even if I send things from my adb-shell

; never seen:
(print "read-char done")