(
    ; This demo shows that stdin is nearly non-blocking

    (spawn _ ReadAndEcho)

    (:a)
    (mslp 2500)
    (lds @cout "Tick\n")
    (j :a)

    (proc ReadAndEcho
        (:a)
        (ld @cout '?')
        (ld @cout @cin)
        (j :a)
    )
)