:
read k < antesemail.txt	#Numero de lineas antes de los EMAIL       = k
read j < email.txt	#Numero  EMAIL       = j
read p < totales.txt   #Numero de lineas totales de letter.txt    =p
read h < h.txt         #cuenta de emil    =h


l=0
c=0
m=$(($k+1+$h))
dm=$(($j+$k))
r=$(($k-1))

while :
do
	if read line
	then
		c=$(($c+1))

		if test $l -lt $r  #Escribo las lineas que hay antes de la primera direccion de mail
		then
   			#set `echo $line`
			echo $line >> letter1.txt
			l=$(($l+1))
		fi
################################################################################### Captura la linea del P1 P2 P3 P4
		if test $c -eq $k
		then
			set `echo $line`
			echo -e "$1\t\t\t\t\t\t$2\t$3\t$4\t$5 " >> letter1.txt
		fi
#####################################################################################
		if test $c -eq $m  #Escribo la direccion mail y el puntaje
		then
			set `echo $line`
			e=$1
			echo -e "$1\t\t\t\t$2\t$3\t$4\t$5" >> letter1.txt
		fi

		if test $c -gt $dm  #Escribo las lineas que vienen despues de las direcciones mail
		then
			#set `echo $line`
			echo $line >> letter1.txt
		fi

	else
		sed  's/\/\//  /' letter1.txt > letter2.txt  #reemplazo los // por espacio
		mail -s NOTAS  $e < letter2.txt     #Envio mail -s NOTAS es el subject se puede cambiar a gusto del usuario
		echo mailing ...... $e
		rm letter1.txt
		rm letter2.txt
		break
	fi
done