get;say [gcd](grep *>-1,0,|+<<words)²||-1