set s [socket kopeke 80]
puts $s "GET / HTTP/1.0"
puts $s ""
flush $s
while {![eof $s]} {
  gets $s line
  puts $line
}