$!=get;my @a=$!.comb.unique;say $! gcd [gcd] map {9*[-] $_},(@a X@a)