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