!ここに民を導く先導者となるべきものを決める儀式を執り行う
integer N
!民の総数である
integer,allocatable,dimension(:)::LookingWEST,LookingEAST
!日沈む方向及び、日出る方向を見る民の総数である
character(3*10**5) S
!民の眼差しの向く方向、一体何が見えているのだろうか。それは民のみぞ知る。
integer ans
!我々の解答である、これによって先導者を決めることとなる、一切の誤謬も許されない。
!さあ儀式の始まりである。
!民は集え、その手を上げよ。
read*,N
!そして目指す方向を述べよ
read*,S
!民の心を受け止めるのに相応しいだけの器を用意する
allocate(LookingWEST(0:N-1),LookingEAST(2:N+1))
!西端には誰もいない、茫漠と荒野が広がっている。
LookingWEST(0)=0
Do i=1,N-1
  !さあ一人一人訊いていこうではないか
  !爾いずれの方向を見るものぞ
  !若し西を見るものであれば我々はそれを記憶する
  !さあ答えよ
  LookingWEST(i)=LookingWEST(i-1)+merge(1,0,S(i:i)=="W")
  !ここに爾のことは記録された
End DO
!東端にも誰もいない、と大洋が広がっている。
LookingEAST(N+1)=0
Do i=N,2,-1
  !さあ今度は東から一人一人訊いていこうではないか
  !爾いずれの方向を見るものぞ
  !若し東を見るものであれば我々はそれを記憶する
  !さあ答えよ
  LookingEAST(i)=LookingEAST(i+1)+merge(1,0,S(i:i)=="E")
  !ここに爾のことは記録された
End DO

!リーダーとはより民に慕われているもの
!すなわちより民の顔が向けられていることが先導者として必要なことである。
!民が目指す先に先導者はいなくてはならない。
!民が後ろを向くことは許されない
!後ろを向くな
!先(まえ)へ
ans=huge(ans)
do i=1,N
  !スコシデモオオクノタミヲマエニムカワセナクテハ
  ans=min(ans,LookingWEST(i-1)+LookingEAST(i+1))
end do
!答えは出た
!これから我々の答えを発表する
!ココロシテキクヨウニ
print"(i0)",ans
!ギシキハ終わりを迎える、我々の役目はここまで、
!また
!先導者の資格がしりたくなったら逢おう
!また答えは変わるやもしれぬ
!Δεν υπάρχει μόνιμη ευτυχία, υπάρχουν μόνο στιγμές ευτυχίας.
end