main = do
    s <- getLine
    putStrLn $ if solve s then "Yes" else "No"

f :: Char -> Char -> String -> Bool
f a b s = (elem a s) == (elem b s)

solve :: String -> Bool
solve s = (f 'N' 'S' s) && (f 'W' 'E' s)