:
S2='//'
k=0
while :
do
	if read line
	then
		set `echo $line`
		if  test $S2 != $1
		then
			echo $k > antesemail.txt
			exit
		fi
		k=$(($k+1))    #Numero de lineas antes de la primera direccion de e-mail
	else
		break
	fi
done

###############################################33


#CODIGO PARA CALCULAR EL NUMERO DE LINEAS QUE HAY ANTES DE LA PRIMERA DIRECCION DE E-MAIL