H,W=gets.split.map &:to_i M=$<.to_a a=[] H.times{|h|W.times{|w|M[h][w]==?*&&a<<[h,w]}} h,w=[[0,0],[1,0],[H-1,0]].find{|h,w|(a[0][0]-h)*(a[1][1]-w)-(a[1][0]-h)*(a[0][1]-w)!=0} M[h][w]=?* puts M