$ perl buk.pl -c 12 -h 7 | wc -l
462