#! /usr/bin/perl

use strict;
my $character = $ARGV[0];
my $line;
open (INFILE, "myFile.txt");
#print $character, "\n";
while ($line = <INFILE>) {
    $line =~ /^(\w+)\s\w+/;    
    if ($1 eq $character) {
        #print $1, "\n";
	
	for (my $i=0; $i<12; $i++) {
    	    $line = <INFILE>;
    	    $line =~ /^(\d+)\s(\d+)\s(\d+)/;
            my ($st, $nd, $rd) = ($1, $2, $3);
            my @array = split(//, $st);
            for (my $temp = 1; $temp<4; $temp++) {
            if ($temp == 2) {
                @array = split(//, $nd);
            } elsif ($temp == 3) {
                @array = split(//, $rd);
            }
            if ($array[0] == 0) {
                print "oo";
            } elsif ($array[0] == 1) {
                print "o+";
            } elsif ($array[0] == 2) {
                print "+o";
            } elsif ($array[0] == 3) {
                print "++";
            }
            for (my $i=1; $i<3; $i++) {
                #if ($i == 1) {
                #    @array = split(//, $nd);
                #} else {
                #    @array = split(//,$rd);
                #}
                if ($array[$i] == 0) {
                    print "ooo";
                }elsif ($array[$i] == 1) {
                    print "oo+";
                }elsif ($array[$i] == 2) {
                    print "o+o";
                }elsif ($array[$i] == 3) {
                    print "o++";
                }elsif ($array[$i] == 4) {
                    print "+oo";
                }elsif ($array[$i] == 5) {
                    print "+o+";
                }elsif ($array[$i] == 6) {
                    print "++o";
                }elsif ($array[$i] == 7) {
                    print "+++";
                }
            }#end for
            
            }
            print "\n";
    	    `echo -n -e "\\$3" > /dev/para0`;
    	    `echo -n -e "\\$2" > /dev/para1`;
    	    `echo -n -e "\\$1" > /dev/para2`;
    	    #`sleep 1s`;
	}
        last;
    }
}