:
S1='//'
i=0
j=0
while :
do
        if read line
	then

		set `echo $line`
		if test $S1 != $1
		then
			i=$(($i+1))	#Numero de direcciones E-MAIL
			#echo $i
		fi
		j=$(($j+1))		#Numero de lineas totales del archivo
		#echo $j		#Numero de lineas totales del archivo

        else

              break

	fi

done
echo $i > email.txt
echo $j > totales.txt


###########################################################


#CODIGO PARA CALCULAR EL NUMERO DE DIRECCIONES DE E-MAIL Y EL NUMERO DE LINEAS TOTALES DEL ARCHIVO QUE A LA LARGA NO USO PA NA