say [gcd] $_=get,|map {9*[-] $_},[X] .comb.unique xx 2