{
TASK: flower
LANG: PASCAL
}
program flower;
var i,j,k:integer;
    b:char;
    a:array[1..102]of byte;
    c:array[1..10000]of byte;
begin
 readln(k);
 for i:=1 to k do
   begin
    readln(b);
    if b='N' then a[i]:=1;
    if b='S' then a[i]:=2;
    if b='W' then a[i]:=3;
    if b='E' then a[i]:=4;
   end;




end.