#!/usr/bin/perl


@foo = (
'ODQKFLXDHQ',
'RGTNIOAGKT',
'WLYSNTFLPY',
'XMZTOUGMQZ',
'YNAUPVHNRA',
'BQDXSYKQUD',
'HWJDYEQWAJ',
'IXKEZFRXBK',
'KZMGBHTZDM'
);

while ($try = <STDIN>) {
  chomp;
  @lets = split '', $try;
  foreach $line (@foo) {
    @raw = split '', $line;
    $count = 0;
    for (0..$#raw) {
      if ($raw[$_] eq $lets[$_]) {
        print $raw[$_];
        $count++;
      } else {
        print '.';
      }
    }
    print " $count\n";
  }
}