{
TASK:flower
LANG:PASCAL
}
program flower;
var J,i,L,n,w,s,e,m,K:integer;
    Z:LONGINT;

    A:STRING;
{PROCEDURE CVETQ(Z,N,W,S,E:INTEGER);}

begin
readln(m);
READ(A);

FOR I:=1 TO LENGTH(A) DO


IF A[I]='N' THEN N:=N+1 ELSE IF A[I]='E' THEN E:=E+1;

IF E>N THEN
BEGIN
IF E=1 THEN
BEGIN
E:=E-1;
Z:=Z+1;
END;

IF E>=2 THEN BEGIN
E:=E-2;
Z:=2;
END;

FOR I:=3 TO E+M-N-1 DO
Z:=Z*2+1;
E:=0;
IF N>0 THEN
BEGIN
FOR I:=1 TO M-1 DO
FOR J:=I+1 TO M+1 DO
Z:=Z+1;
N:=N-1;
END;

END ELSE

BEGIN
IF N=1 THEN
BEGIN
N:=N-1;
Z:=Z+1;
END;

IF N>=2 THEN BEGIN
N:=N-2;
Z:=2;
END;

FOR I:=3 TO N+M-E+1 DO
Z:=Z*2+1;
N:=0;
IF E>0 THEN
BEGIN
FOR I:=1 TO M-1 DO
FOR J:=I+1 TO M+1 DO
Z:=Z+1;
E:=E-1;
END;



END;




WRITELN(Z-2);
READLN;
end.
