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