get;say [gcd](map 0 max+*,words)²||-1