# RemoteInvocationServer sample

    source ../../oo.tcl

    @import core.*

    #- creating server object
    s = [RemoteInvocationServer new]

    #- allowing messages to Object class
    $s permit: "Object *"

    #- allowing messages to instances
    $s permit: "id* *"

    #- denying message to our server instance
    $s deny: "$s *"

    #- denying any RemoteInvocationServer instance creation
    $s deny: "RemoteInvocationServer (alloc|new)"

    $s start