#!/usr/bin/perl -w
use strict;

use Algorithm::Loops qw( NestedLoops );

my $permlist= [ 'a' .. shift(@ARGV)||'c' ];
my $max= $#$permlist;
my $card= shift(@ARGV) || 1;
my $iter= NestedLoops(
    [
        [ 0 .. $max+1-2*$card ],
        sub { [ $_+1 .. $max ] },
        map {
            my $left= $card - $_;
            sub {
                my %used;  @used{@_}= (1) x @_;
                [ grep !$used{$_}, $_[-2]+1 .. $max+1-2*$left ];
            },
            sub {
                my %used;  @used{@_}= (1) x @_;
                [ grep !$used{$_}, $_+1 .. $max ];
            },
        } 1 .. $card-1,
    ],
);
## my @data;
my @idx;
my $count;
{
    my $prod= 1;
    my $mult= @$permlist;
    for( 1..$card ) {
        $prod *= $mult--;
        $prod /= $_;
    }
    for( 1..$card ) {
        $prod *= $mult--;
        $prod /= 2;
    }
    print "$prod pairings:\n";
}
while(  @idx= $iter->()  ) {
    my @group;
    while(  @idx  ) {
        my @pair= @{$permlist}[ splice(@idx,0,2) ];
        push @group, \@pair;
    }
    printf "( %s )\n", join ", ", map sprintf("(%s,%s)",@$_), @group;
    ## push @data, \@group;
}