get;$_=map {[-] $![^2+$_]},^+^-($!=sort +<<words);say <NO YES>[@$_.Set <2&&.[0] <0]