for i in $* ; do
	case $1 in
	-) shift ; grep '^\.H'  ;;
	*) grep '^\.H' $i  ;;
	esac
done
