h=gets.to_i
s=$<.read
s[0,h][?*]?s[h+rand(h)]=?*:s[h/2]=?*
$><<s