main = getLine >>= print . solve

solve :: String -> Double
solve = calc . foldl ff (0.0, 0.0)
	where
	ff (x, y) z
		| z == 'N' = (x, y + 1)
		| z == 'E' = (x + 1, y)
		| z == 'W' = (x - 1, y)
		| otherwise = (x, y - 1)
	calc (x, y) = sqrt $ x ** 2.0 + y ** 2.0