{
    Решение избранных задач
    © 2024 Слинкин Д.А., GNU LGPLv3

 **********************************************************************}

{$mode objfpc}
uses math;
var ingr:string='SPCEM';
    result:array[1..5]of integer=(0,0,0,0,0);
    count,i,p,min:integer;
    c:char;
begin
 readln(count);
 for i:=1 to count do begin
  read(c);
  p:=pos(c,ingr);
  if p>0 then inc(result[p]);
 end;
 min:=minIntValue(result);
 writeln(min*5);
end.