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 > 0 && south > 0) && (west > 0 && east > 0) then
        "Yes"
        else
        "No"