#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $size = shift;
my @strings;

sub recurse {
    my ($string) = @_;
    if (2 * $size > length $string) {
        recurse($_ . $string) for qw/ ( ) /;
    } else {
        push @strings, $string if eval "qw($string) and 1";
    }
}

recurse($_) for qw/ ( ) /;
say for sort @strings;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,