clear
fid = fopen( 'Portugues.txt', 'r' );
A = fread(fid);
fclose( fid );

n = hist( A, (1:256) );
f = n / sum(n);
fac = cumsum( f );
NL = 50;
saida = zeros(NL,1);
%tic
for Latu = 1:NL
  y = rand;
  letra = sum( y>fac ) + 1;
  saida(Latu) = letra;
end
%toc
fprintf( '%s\n', char(saida') )