#!/bin/sh
# Restart with tclsh \
exec tclsh "$0" "$@"

package require comm 4.2
namespace import comm::comm

proc main {{port 1777} args} {
    comm config -local 0 -port $port
    vwait forever
}

main {expand}$argv

# vim: set ts=4 sts=4 sw=4 tw=80 et: