keepcyc function

Keep or discard some cycles of a permutation