sub gen_seqs;
    sub gen_seqs {
        return [] if $_ [0] <= 0;
        my @s = gen_seqs $_ [0] - 1;
       (map {[0 => @$_]} @s), (map {[1 => @$_]} @s)
    }