(defparameter x 0)
(defparameter y 0)

(loop for char = (read-char nil nil) do 
	(if (not char) (return))
	;(print char)
	(case char
	 	(#\N (incf x))
	 	(#\S (decf x))
	 	(#\E (incf y))
	 	(#\W (decf y))
	)
)
;(print x)
;(print y)
(format t "~f~%" (sqrt (+ (* x x) (* y y))))