#!/usr/bin/perl -w

use strict;

my @v;
my $long;
my $i;

while (<STDIN>){
      chomp($_);
      @v=split ("",$_);
      $long=scalar(@v);
      $i=0;

      while ($i<=$long-1){
	
      	    if ($v[$i] eq "*"){
	       $v[$i]= "X";
	     }
	    print $v[$i];	
	    $i=$i+1;
	
	 }
	print "\n";
}
	       

