function [lenguaje]=leer_lengua
  comillas="\"";
  fid=fopen('lenguajes','r');
  a=setstr(fread(fid));
  fclose(fid);
  k=findstr(comillas,a);
  lenguaje=str2num(a((mean([k(1) k(2)]))));
  
endfunction
