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