say ([*](@($/=words)X-1),-2)[$0 gcd$1>1]/2