push@_,$_ while$_=<>,/O/;chomp@_;for(@_){@a=split//;@b=split//,<>;print$_ eq shift@b?" ":"O"for@a;print"\n"}