#!/usr/bin/perl

use strict;
use warnings;

use constant BITS => 11;

our @pos; our @bits; our @val;

format STDOUT_TOP=
.
$= = 1<<(BITS-1);
format STDOUT =
  /* @### -> @0######### */ @#, /* @### -> @0######### */ @#,
     $pos[0], $bits[0], $val[0],    $pos[1], $bits[1], $val[1],
.

print "static uint8_t ctz_table_",BITS,"bit[",1<<BITS,"] = {\n";

for (my $pos = 0; $pos < (1<<BITS); $pos += 2) {
  @pos = ($pos, $pos+1);
  @bits = map substr(unpack('B*', pack 'n', $_), -(BITS)), @pos;
  @val = map length((m/(0*?)\z/)[0]), @bits;
  write
}

print "};\n";

# EOF