local 
    open Web.XMLrpc
    fun call name t1 t2 a =
	rpc t1 t2 {url="http://www.smlserver.org/demo/xmlrpc_test_server.sml",
		   method=name} a
in
    val add = call "add" (pair(int,int)) int
    val neg = call "neg" int int
end

val res1 = Int.toString (neg(add(11,neg 5)))
  handle Web.XMLrpc.TypeConversion => "TypeConversion Error"

val res2 = Int.toString (add(12,200))
  handle Web.XMLrpc.TypeConversion => "TypeConversion Error"

val res3 = Int.toString (neg 12)
  handle Web.XMLrpc.TypeConversion => "TypeConversion Error"

val () = Page.return "XML-RPC Example"
  `Each of the calculations below are made using <a
href="http://en.wikipedia.org/wiki/XML-RPC">XML-RPC</a> client calls to an XML-RPC
server, which implements the <tt>neg</tt> and <tt>add</tt> operations. To see how easy
it is to make your ML functions available as XML-RPC methods, see the
source code for the server and the client available from the <a
href="../index.sml">index page</a>.
</p>

<table border=1>
<tr><th>Expression</th><th>Result</th></tr>
<tr><td>neg(add(11,neg 5))</td><td>^res1</td></tr>
<tr><td>add(12,200)</td><td>^res2</td></tr>
<tr><td>neg 12</td><td>^res3</td></tr>
</table>`