proc accept {so args} {
    fconfigure $so -translation binary
    puts -nonewline $so "abc\r"
    puts -nonewline $so "\ndef"
    flush $so
    #Now force separate packets
    puts -nonewline $so "ghi\r"
    flush $so
    after 1000
    puts -nonewline $so "\njkl"
    flush $so
    close $so
    set ::done 1
}

set so [socket -server accept 10000]

vwait done
