import Data.List( nub, sort)
main = do
    s <- getLine
    let directions = sort $ nub s
	judge
	  | directions == "ENSW"    = "Yes"
	  | directions == "EW"	    = "Yes"
	  | directions == "NS"	    = "Yes"
	  | otherwise		    = "No"
    putStr judge