import Control.Applicative
import Control.Monad
import Data.List
import Data.Array.Unboxed

f 'N' = 1
f 'W' = 2
f 'S' = 3
f 'E' = 4

solve a
    | and [n > 0, s > 0, w == 0, e == 0] = "Yes"
    | and [w > 0, e > 0, n == 0, s == 0] = "Yes"
    | and [n > 0, s > 0, w > 0, e > 0]   = "Yes"
    | otherwise                          = "No"
  where
    n = a ! 1
    w = a ! 2
    s = a ! 3
    e = a ! 4

main :: IO ()
main = do
    ss <- getLine
    let a = accumArray (+) 0 (1, 4) (zip (fmap f ss) (repeat 1)) :: UArray Int Int
    putStrLn $ solve a