$i=0;
while (<STDIN>){
	chop();
	s/NEWLINE/ /g;
	s/SEMICOLON/\;/g;
	tr/[A-Z]/[a-z]/;
	while (/\s([^\s]*)\s+(\w*)\Q$ARGV[0]\E(\w*)\s+([^\s]*)\s*([^\s]*)\s*([^\s]*)\s*([^\s]*)/g){
		print "$1 $2$ARGV[0]$3 $4 $5 $6 $7\n";
	}
	$i++;
}