#!/usr/bin/env bx

Main()
	let(sock, Client("google.com", 80))
	let(sockf, Fdopen(sock, "w"))
	Fprintf(sockf, "GET http://google.com/ HTTP/1.0\r\n\r\n")
	Fflush(sockf)

	new(b, buffer)
	repeat
		if Freadline(b, sockf) == EOF
			break
		Say(buffer_to_cstr(b))
		buffer_clear(b)

	Fclose(sockf)
	close(sock)

use b