#!/usr/bin/perl -w

@konsonants = ( "p", "b", "t", "d", "k", "g", "m", "n", "f", "v", "h", "ch", "l", "r", "s", "sch", "ts", "ds", "tsch", "dsch", "x" ); #21
@not_first = ( "p", "b", "t", "d", "k", "g" ); #6
@not_second = ( "p", "b", "t", "d", "k", "g", "m", "n", "ts", "ds", "tsch", "dsch", "x" ); #13

$j = 0;
$konso1 = 0;
$konso2 = 0;

$len_not_first = @not_first;
$len_not_second = @not_second;

# CC

foreach $konso1 (@konsonants)
{
	foreach $konso2 (@konsonants)
	{
		if ($konso1 eq $konso2) { next }
		
		for ($i = 0; $i < $len_not_first; $i++)
		{
			for ($y = 0; $y < $len_not_second; $y++)
			{
				if ($konso1.$konso2 ne $not_first[$i].$not_second[$y]) { next }
#				if ($konso1 ne $not_first[$i]) { }
#				elsif ($konso2 ne $not_second[$y]) { }
				else
				{
					print $konso1.$konso2."\n";
					$j++;
				}
			}
		}
	}
}
				
	print $j;
	print "\n";