function [ BLABLABLA ] = gera_palavras( NumLetras, TIPO )
%[ BLABLABLA ] = gera_palavras( NumLetras, TIPO );

% le o arquivo
[NOME_FILE,PATH_FILE] = uigetfile( '*.txt', 'Nome do arquivo' );
fid = fopen( fullfile( PATH_FILE, NOME_FILE ), 'r' );
TEXTO = fgetl( fid );
fclose( fid );

% substitui letras
TEXTO( TEXTO=='á' ) = 'a';
TEXTO( TEXTO=='â' ) = 'a';
TEXTO( TEXTO=='ã' ) = 'a';
TEXTO( TEXTO=='à' ) = 'a';

TEXTO( TEXTO=='é' ) = 'e';
TEXTO( TEXTO=='ê' ) = 'e';
TEXTO( TEXTO=='ë' ) = 'e';
TEXTO( TEXTO=='è' ) = 'e';

TEXTO( TEXTO=='í' ) = 'i';

TEXTO( TEXTO=='ó' ) = 'o';
TEXTO( TEXTO=='ô' ) = 'o';
TEXTO( TEXTO=='õ' ) = 'o';
TEXTO( TEXTO=='ö' ) = 'o';

TEXTO( TEXTO=='ú' ) = 'u';
TEXTO( TEXTO=='ü' ) = 'u';

TEXTO( TEXTO=='ç' ) = 'c';

% TEXTO( TEXTO=='a' ) = '*';
% TEXTO( TEXTO=='e' ) = '*';
% TEXTO( TEXTO=='i' ) = '*';
% TEXTO( TEXTO=='o' ) = '*';
% TEXTO( TEXTO=='u' ) = '*';


% gera as palavras
if ~exist('TIPO','var') || TIPO==1
    [ yh, xh ] = hist( double(TEXTO), 1:255 );
    BLABLABLA = char( gera_inteiro(yh,NumLetras).' );
elseif TIPO==0
    [ yh, xh ] = hist( double(TEXTO), 1:255 );
    yh( double('a'):double('z') ) = ...
        mean( yh( double('a'):double('z') ) );
    BLABLABLA = char( gera_inteiro(yh,NumLetras).' );
elseif TIPO==2
    BLABLABLA = repmat( ' ', 1, NumLetras );
    for qL = 2:NumLetras
        letra_anterior = BLABLABLA(qL-1);
        onde_letra_anterior = find( TEXTO(1:end-1)==letra_anterior );
        [ yh ] = hist( double(TEXTO(onde_letra_anterior+1)), 1:255 );
        BLABLABLA(qL) = char( gera_inteiro(yh,1).' );
    end
elseif TIPO==-1
    BLABLABLA = TEXTO;
end

if nargout==0
    if BLABLABLA(1)~=' '
        BLABLABLA = [' ' BLABLABLA];
    end
    if BLABLABLA(end)~=' '
        BLABLABLA(end+1) = ' ';        
    end
    onde_espacos = find( BLABLABLA==' ' );
    Nachou = 0;
    Ntentou = 0;
    for qp = 1 : length(onde_espacos)-1
        comeco = onde_espacos(qp);
        final = onde_espacos(qp+1);
        if (final-comeco)>2
            Ntentou = Ntentou + 1;
            palavra = BLABLABLA(comeco:final);
            if ~isempty( strfind( TEXTO, palavra ) )
               Nachou = Nachou+1;
%                disp( palavra )
            end
        end
    end
    Ntentou
    Nachou
    100*Nachou/Ntentou
    clear BLABLABLA
end