(require 'jsonrpc)
(defvar *conn* (make-instance 'jsonrpc-process-connection
			      :process (lambda ()
					 (open-network-stream
					  "JSONRPC" nil
					  "localhost" 8192))))
(jsonrpc-request *conn* :subtract '(:l 42 :r 12))
(jsonrpc-notify *conn* :quit '())