Help for Server SOAP on SWI Prolog

[Lo que sea video]

Hi everybody, i want to know how i can implement (migrate) this code on swi prolog.

<?php

if(!extension_loaded("soap")){

     dl("php_soap.dll");

}

 

ini_set("soap.wsdl_cache_enabled","0");

$server = new SoapServer("mywsdl.wsdl");

 

function add($param1,$param2){

     return $param1+$param2;

}

 

function sub($param1, $param2){

     return $param1-$param2;

}

 

$server->AddFunction("add");

$server->AddFunction("sub");

$server->handle();

?>