(require (lib "xmlrpc-servlet.ss" "xmlrpc"))

(define (add x y) 
  (+ x y))

(add-handler 'math.add add)

(handle-xmlrpc-requests)