use strict;
#never warnings;

#daraset
for (1..100){

        for (my $x=0; $x<90; $x+=10){
                my @c;
                push(@c, int (rand(10)+$x));
                push(@c, int (rand(10)+$x));
                push(@c, int (rand(10)+$x));
                push(@c, int (rand(10)+$x));
                @c = sort{$a<=>$b}@c;
                for (my $i = 1; $i < @c; $i++){
                        print chr(33+$c[$i]) if $c[$i] != $c[$i-1] && $c[$i] != $c[$i-1]+1 ;
                }
        }
        print "\n";
}