var
   sent:string;
   a,b,loc,len,store:integer;
   fin,fout:text;
   squot,dquot,ddash,sdash:boolean;
   label next;
begin
     assign(fin, 'DATA2.txt');
     reset(fin);
     assign(fout, 'OUT2.txt');
     rewrite(fout);
     for a:=1 to 5 do
     begin
          readln(fin, sent);
          loc:=1;
          squot:=false;
          dquot:=false;
          ddash:=false;
          sdash:=false;
          repeat
          next:
                len:=length(sent);
                if loc > len then break;
                if squot then
                begin
                     if ord(sent[loc])=44 then
                     begin
                        squot:=false;
                        sent[loc]:=' ';
                        delete(sent, store,1);
                        loc:=loc-1;
                     end;
                     loc:=loc+1;
                     goto next;
                end;
                if dquot then
                begin
                     if ord(sent[loc])=34 then
                     begin
                        dquot:=false;
                        sent[loc]:=' ';
                        delete(sent, store,1);
                        loc:=loc-1;
                     end;
                     loc:=loc+1;
                     goto next;
                end;
                if sdash then
                begin
                     if (sent[loc]='*') and (sent[loc+1]='/') then
                     begin
                        sdash:=false;
                        delete(sent, loc,1);
                        sent[loc]:=' ';
                        delete(sent, store,2);
                        loc:=loc-2;
                     end;
                     loc:=loc+1;
                     goto next;
                end;
                if ((not squot) and (not dquot)) and ((not sdash) and (not ddash)) then
                begin
                     if ord(sent[loc])=44 then
                     begin
                          squot:=true;
                          store:=loc;
                          loc:=loc+1;
                          goto next;
                     end;
                     if ord(sent[loc])=34 then
                     begin
                          dquot:=true;
                          store:=loc;
                          loc:=loc+1;
                          goto next;
                     end;
                     if (sent[loc]='/') and (sent[loc+1]='*') then
                     begin
                          sdash:=true;
                          store:=loc;
                          loc:=loc+1;
                          goto next;
                     end;
                     if (sent[loc]='/') and (sent[loc+1]='/') then
                     begin
                          ddash:=true;
                          delete(sent, loc, 2);
                          break;
                     end;
                end;
                delete(sent, loc,1);

          until loc>=len;
          if not ddash then
             delete(sent, length(sent),1);
          for b:=1 to length(sent) do
          begin
               write(fout, sent[b]);
          end;
          writeln(fout);
     end;
end.