my @bits = (0 .. $dim - 1);
  for (0 .. $dim - 1) {
    $bits[$_] += 2 * $dim if $v & (1 << $_);
  }
  $bits[$height] += $dim;
  my @bitmap = map $_ % $dim, sort { $b <=> $a } @bits;