Create zserver.R

snippet: zeromq server in R