Update leerArchivo.hs

token asignación por completar