sub rx_bits {
  my $str = shift;
  my $l = 0;
  $str =~ (
    "^" . join "", map "[01]" x ($_ - ($l+0,$l=$_)[0] - 2) . "(?:01|10)", @_
  );
}