polog

use List::Util qw(shuffle);

my @ezs = qw(+ - * /);
my @kz_base = split //, shift @ARGV;

my $ans = 0;
my @curl = ();
my @kz = ();
my $base_num = scalar(@kz_base);

while(1){
@kz = shuffle @kz_base;

@codes = ();
@curl = qw{( )};

push @codes, $kz[0];

for(1 .. $base_num - 1){
if(!int(rand()*$base_num) && $curl[0] eq ')'){
push @codes, shift(@curl);
@curl = qw{( )};
}
push @codes, $ezs[int(rand()*4)];
if(!int(rand()*$base_num) && $curl[0] eq '('){
push @codes, shift(@curl);
}
push @codes, $kz[$_];
}

if($curl[0] eq ')'){
push @codes, shift(@curl);
}

print join ' ', @codes, " = ";
eval('$ans = ' . qq{@codes} . ';');
print $ans, "\n";
last if($ans == 10);
}