Print the "even" permutations of symmetric group Sn in cyclic notation
Mathematica, 84 49 31 bytes

GroupElements@*AlternatingGroup


Composition of two functions. Outputs in the form {Cycles[{}], Cycles[{{a, b}}], Cycles[{{c, d}, {e, f}}], ...} representing (), (a b), (c d)(e f), ....