examples/unix.client

   1 # Example of sending via a connected tcp socket
   2
   3 set s [socket unix unix.tmp]
   4
   5 foreach i [range 1 20] {
   6         $s puts "expr {1 << $i}"
   7
   8         puts [$s gets]
   9 }