gets;b=->s{$_.count s};p (b[?N]-b[?S]+1i*(b[?E]-b[?W])).abs