gets
s=$<.read
a=s[/.*$/]
a[?*]?a[/\*.*\*/]?s[-2]=?*:s[0]=?*:s[1]=?*
$><<s