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