program xiaohou;

const zhishu:array[1..25] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);

var

danci:array['a'..'z'] of integer;

re:string[100];

i,n,max,min:integer;

c:char;

begin

read(re);

for i:=1 to length(re) do

inc(danci[re[i]]);

max:=0;min:=200;

for c:='a' to 'z' do

begin if danci[c]>max then max:=danci[c];

if (danci[c]