$_=(+<<words).Array;(.[0]++;.[2]-=2)while (.=sort)[2]-.[0]>2;say .[0]