use Algorithm::Networksort;
use strict;
use warnings;
my $inputs = $ARGV[0] || 8;
my $alg = $ARGV[1] || 'hibbard';
my $nw = Algorithm::Networksort->new(inputs => $inputs, algorithm => $alg);
$nw->index_base([1 .. $inputs]);
$nw->formats(["SWAP(%d, %d);\n"]);
print $nw->formatted();
exit(0);