#
# Example 16-3
# A client of the echo service.
#

proc Echo_Client {host port} {
	set s [socket $host $port]
	fconfigure $s -buffering line
	return $s
}
set s [Echo_Client banon-pc.dpi.inpe.br 2541]
puts $s "Hello!"
gets $s
#=> Hello!