{
TASK:flower
LANG:PASCAL
}
program flower;
TYPE MAS=ARRAY[1..100]OF CHAR;
var Z,i,n,w,s,e,m:integer;
    j:char;
    A:MAS;
begin
readln(m);
for i:=1 to m do
READ(A[I]);

FOR I:=1 TO M DO
IF A[I]='N' THEN N:=N+1 ELSE IF A[I]='S' THEN S:=S+1
ELSE IF A[I]='W' THEN W:=W+1 ELSE E:=E+1;

Z:=(S-1)*2 + (E-1)*2;
Z:=Z+(N-S)*(M-1)+(W-E)*(M-1);
WRITELN(Z);
end.