#!/usr/bin/perl -w
$c='X';
sub p{for(1..9){print(($b{$_}||$_).($_%3?"":$/))}}
while(1){
$i=<>;chomp$i;$b{$i}=$c && $c=~y/XO/OX/;
p($i)

}