S = gets.chomp
xy = [0,0]
S.chars.each do |d|
  case d
  when 'N' ; xy[0] += 1
  when 'S' ; xy[0] -= 1
  when 'E' ; xy[1] += 1
  when 'W' ; xy[1] -= 1
  end
end
puts xy.map{|d| d ** 2}.then{|x2,y2| Math.sqrt(x2 + y2) }