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