#! perl -slw
use strict;

### Prefer Ones:
### Write n zeros.
### Then, always write a one unless it would cause the repetition of an n-length string;
### In which case, write a zero.

our $N //= 4;

my $seq = '0' x $N;
my %seen = ( $seq => 1 );
for( $N .. 2**$N ) {
    $seq .= ( not exists $seen{ substr( $seq, -( $N-1 ) ) . '1' } ) ? '1' : '0';
    ++$seen{ substr( $seq, -$N ) };
}

$seq .= substr $seq, 0, $N-1;

print length $seq; <STDIN>;

my $re = '(.)(?=(' . '.'x($N-1) . '))';
print $1 . $2 while $seq =~ m[$re]g;