<>;
$s|=$_ for@a=<>;
$i=index$s,'-';
for(@a){
	if(substr($a[0],$i,1)eq'-'){
		substr($a[0],$i,1)='*';
		print@a;
		exit;
	}
}