:-[server].
:-[sealed_term].

/*
USAGE:

?- new(secure_server(2003,tweety),S),S:serve. % Password=tweety

*/