var s:ansistring;
    m1,m2,m3,m4,m5,qa,i,n:longint;
begin
    m1:=0;
    m2:=0;
    m3:=0;
    m4:=0;
    m5:=0;
    readln(n);
    read(s);
    for i:=1 to length(s) do
    begin
        if s[i] in ['A'..'Z'] then m1:=1;
        if s[i] in ['0'..'9'] then m2:=1;
        if s[i] in ['!','@','#','$','%','^','&','*','(',')','-','+'] then m3:=1;
        if s[i] in ['a'..'z'] then m4:=1;
    end;
    qa:=4-m1-m2-m3-m4;
    if qa+n<6 then qa:=qa+(6-(qa+n));
    write(qa);
end.