#!/usr/local/bin/cz --
use b
Main()
	int n = 20000
	int port = 80
	if args
		port = atoi(arg[0])
	FILE *files[n]
	for(i, 0, n)
		if i % 128 == 1
			Rsleep(0.001)
#		warn("connect %d", i)
		files[i] = Fdopen(Client("localhost", port), "r+")
	for(i, 0, n)
#		warn("req %d", i)
		Fsayf(files[i], "GET http://sam.test/ HTTP/1.0\r")
		Fsayf(files[i], "\r")
		Fflush(files[i])
	for(i, 0, n)
#		warn("resp %d", i)
		buffer *b = fslurp(files[i])
		buffer_nul_terminate(b)
		Sayf("sock %d read %d bytes", i, (int)buflen(b))
#		FILE *out = Fopen(Format("out.%03d", i), "w")
#		Fprint(out, buf0(b))
#		Fclose(out)
		buffer_free(b)
	for(i, 0, n)
#		warn("close %d", i)
		Fclose(files[i])