import Control.Applicative ((<$>), (<*>), (<*), (*>), (<$))
import Data.List

main :: IO ()
main = do
  solve <$> getLine >>= print

solve :: String -> Double
solve xs = let [e, n, s, w] = map length $ group $ sort ("ENSW" ++ xs)
           in distance (abs (e - w)) (abs (n - s))

distance :: Int -> Int -> Double
distance x y = sqrt $ (fromIntegral x) ** 2 + (fromIntegral y) ** 2