(define-xmlrpc-method "HelloWorld"
 (lambda () "Hello World"))

(define-xmlrpc-method "GoodbyeWorld"
 (lambda () "Goodbye World"))

(define-xmlrpc-method "add"
 (lambda (x y) (+ x y)))

(define-xmlrpc-method "test"
 (lambda (x) x))

(define-xmlrpc-method "set-r"
 (lambda (x) (set! r x)))

(define-xmlrpc-method "get-r"
 (lambda () r))