#!/usr/bin/perl -w
use strict;
foreach my $base (qw(aaa bbb xxx ayz yyy bbb bbby bbbyz aax xxx yzyz yzy)) {
    print "$base\n";
    foreach my $flags (qw(A B C AB BC AX AY BY BCZ YZ X Y)) {
	print "$base/$flags\n";
    }
}
