t2.tcl

set s [socket "localhost" 36973]

set done false
set chunk ""
set count 0
while {!$done} {
	set char [read $s 1]
	if {$char == "\0"} {
		puts $chunk
		set chunk ""
		incr count
		if {$count == 3} {
			break
		}
	} else {
		append chunk $char
	}
}

puts "done"