Posted to tcl by Poor Yorick at Sat Apr 27 09:34:35 GMT 2019view pretty

proc write chan {
    puts [list writing [info cmdcount]]
    puts $chan hello
}
lassign [chan pipe] pr pw 
chan configure $pw -blocking 0
chan event $pw writable [list write $pw]
vwait forever