main=do
 getLine;s<-getLine
 print(minimum(map(\(a,b)->a+b)(zip(w s 0)(reverse(e(reverse s)0)))))
  where w [] _ = []
        w ('W':s) i = i:(w s (i+1))
        w ('E':s) i = i:(w s i)
        e [] _ = []
        e ('W':s) i = i:(e s i)
        e ('E':s) i = i:(e s (i+1))