TYPESETTER=lp
export TYPESETTER

case $#
in 1)	file=$1
;; *)	echo >&2 "Usage: $0 file"; exit 1
esac

while :
do	tbl $file | troff -n1 -man | dlp | col | uniq | less
	echo "Type \`.' to exit $0"
	echo 'vi +/\c'; read pattern
	case $pattern
	in "")	vi $file
	;; ".")	exit
	;; *)	vi '+/'"$pattern" $file
	esac
done
