clear
clc

s = [];
for k=1:100
s = [s 0xA0 0x01 randi(2).'-1 0xE0];
s = [s 0xA0 0x02 randi(2).'-1 0x00 randi(256).'-1 randi(256).'-1 randi(256).'-1 0xE0];
end

a = unique(s).';  % Alphabet



for k=1:length(a)
    c(k) = sum(s==a(k));
end

p = c/sum(c);

ps=sort(p);
tres=min(ps(end-10:end));
sel = p>tres;
dec2hex(a(sel))
p(sel).'