# From https://github.com/securitykiss-com/csp/blob/master/csp.test
proc sender {ch} {
    foreach i {1 2 3 4} {
        puts -nonewline i$i
        $ch <- $i
    }
}
proc receiver {ch} {
    while 1 {
        puts -nonewline o[<- $ch]
    }
}
channel ch
go sender $ch
go receiver $ch
after 501 set little 1
vwait little
return