use strict;
use warnings;
use Group::Permutation;

my $x = new Group::Permutation qw(1 3 2 4);
print "x = $x\n";
print 'x of 2 = ',$x->of(2),"\n";
print 'ref of x of 2: ', ref $x->of(2),"\n";
print "x of 2 is three!\n" if ($x->of(2) == 3);