gistfile1.ml

open ZMQ
open ZMQ.Socket

let context = init ()
let _ = print_endline "Connecting to hello world server..."
let requester = Socket.create context req
let _ = connect requester "tcp://localhost:5555"

let _ = 
	for i = 1 to 10 do
 		Printf.printf "Sending request %d...\n" i;
 		send requester "Hello";
 		let reply = recv requester in
 		Printf.printf "Received reply %d: [%s]\n" i reply
	done;
	close requester;
	term context