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