import qualified Data.Set as S

main :: IO ()
main = putStrLn =<< solve <$> getLine

solve :: String -> String
solve s = case S.toList (S.fromList s) of
  "ENSW" -> "Yes"
  "NS"   -> "Yes"
  "EW"   -> "Yes"
  _      -> "No"