Select Code to Download

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