say ++$, ': ', $_ for gather { take my @tup = get.comb(/\d+/); take @tup = (@tup Z- @tup.rotate)>>.abs until none(@tup) or (%){~@tup}++; }