with(Sockets);
with(XMLTools);

server := proc(sid)
  local a, b, c;
  use Sockets in
    a := ReadLine(sid, 200):
    b := convert( parse(a, statement), string ):
    Write(sid, b )
  end use
end proc:

Sockets:-Serve(1233,server);