set null [rpc svc_create 0 1]
set pmap [rpc clnt_create localhost portmap 2]
# $pmap unset 0 1 17 0
puts "$null port is [$null port]"
# $pmap set 0 1 17 [$null port]

# Main service loop
while {1} {
}
