my @subseq = gen_seqs($n-1);
unshift @$seq, 0 foreach @subseq;
unshift @$seq, 1 foreach @subseq;
push @seqs, @subseq, @subseq;