h=gets.to_i
s=$<.read
a=s[0,h]
a[?*]?a[/\*.*\*/]?s[h+1]=?*:s.sub(?-,?*):s[h/2]=?*
$><<s