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