gets;p (0..3).map{|i|$_.count(:NESW[i])*1i**i}.sum.abs