{
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 N=1 THEN BEGIN
Z:=1;
N:=N-1;
WRITELN(Z);
END;
IF N>=2 THEN
BEGIN
Z:=2;
N:=N-2;
WRITELN(Z);
END;

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

WRITELN(Z-1);
READLN;
end.