TY=`basename $0`
FS=`nof $TY`
typ $TY

case $# in

0) arg0 $FS $TY ;;

1) (cat $ENT/$TY.ent ; zex $FS | grep $1 | tee $REF )| ind ;;

*) op-m $FS $TY $* ;;
esac