(
while true do
	printf "\n";
	(let a = camlbox_wait box in
		List.iter (fun x ->
			let v = camlbox_get_copy box x in
			printf "msg %d = %d, %s" x v.data v.returnaddress;
			let sender = camlbox_sender v.returnaddress in
			let c = new connection ~conninfo:"host=localhost user=gustav dbname=srm password=elephant" () in