#!/usr/bin/perl

use warnings;
use strict;

my $i;
my @A;
while(<DATA>){
	chomp;
	/\d/ ? $i = $& : push @{ $A[$i] }, $_;
}

chomp( @_ = <> );

my $regex = join ".{721}", map { s/\./\\./gr =~ y/-/./r } @_[0..9];

my @L;
push @L, ('.' x 5 . ( 'X' x 2 . '.' x 10 ) x 64 . 'X' x 2 . '.' x 5) x 2;
push @L, '.' x length $L[0];

for my $i ( 'a26', 0, 'a48', (map { (split //, $_ * 5), 'a44' } reverse 2 .. 11), 'a4', 5, 'a52', 0, 'a26' ){
	for my $j (0 .. 6){
		$L[$j + 3] .= $i =~ /a(\d+)/ ? '.' x $1 : $A[$i][$j]
	}
}

my $L = join "\n", @L;

$L =~ s/$regex.*//s or print "NOOOOO!\n";

my $sec5 = (720 - length $L) % 720;

printf "%02d:%02d\n", (int $sec5 / 12), 5 * ($sec5 % 12);


__DATA__
0
.XXXXX..
XX..XXX.
XX.XXXX.
XXXX.XX.
XXX..XX.
XXX..XX.
.XXXXX..
........
1
...XX...
..XXX...
.XXXX...
...XX...
...XX...
...XX...
.XXXXXX.
........
2
.XXXXX..
XX...XX.
.....XX.
...XXX..
.XXX....
XX......
XXXXXXX.
........
3
.XXXXX..
XX...XX.
.....XX.
..XXXX..
.....XX.
XX...XX.
.XXXXX..
........
4
...XXX..
..XXXX..
.XX.XX..
XX..XX..
XXXXXXX.
....XX..
...XXXX.
........
5
XXXXXXX.
XX......
XXXXXX..
.....XX.
.....XX.
XX...XX.
.XXXXX..
........
6
.XXXXX..
XX...XX.
XX......
XXXXXX..
XX...XX.
XX...XX.
.XXXXX..
........
7
XXXXXXX.
XX...XX.
X....XX.
....XX..
...XX...
..XX....
..XX....
........
8
.XXXXX..
XX...XX.
XX...XX.
.XXXXX..
XX...XX.
XX...XX.
.XXXXX..
........
9
.XXXXX..
XX...XX.
XX...XX.
.XXXXXX.
.....XX.
XX...XX.
.XXXXX..
........
