countLetters :: String -> Char -> Int
countLetters str c = length $ filter (== c) str

main :: IO ()
main = do
    s <- getLine
    let
        north = countLetters s 'N'
        west = countLetters s 'W'
        south = countLetters s 'S'
        east = countLetters s 'E'
    putStrLn $ if north `mod` 2 == south `mod` 2 && west `mod` 2 == east `mod` 2 then
        "Yes"
        else
        "No"