$/=[Z-] words[^2,2..3];say 1+?(sum(@$/>>.abs)>3&&$0&&$1)