program KillDashNine;

uses CRT;

const
     MAX = 50;
var
   asArray: array[1..MAX] of string;
   iCountArray: integer;





procedure LoadFile(sFileName: string);
var
   i: integer;
   FHFile: text;
begin
     i := 0;

     assign(FHFile, sFilename);
     reset(FHFile);
     while(not(eof(FHFile))) do
     begin
          i := i + 1;
          readln(FHFile, asArray[i]);
     end;
     close(FHFile);

     iCountArray := i;

end;

var asChunk1: Array[1..100] of string;
var asChunk2: Array[1..100] of string;
var iTemp, iSChunk, iFChunk, k, i, iCurrent, j: integer;
var sTemp, sCurrent: string;
var FHFile: text;

begin
     assign(FHFile, 'OUT3.txt');
     rewrite(FHFile);

     clrscr;
     LoadFile('DATA3.txt');

  for j:= 1 to iCountArray do
  begin

  if ((j mod 2) = 1) then
   begin
     k:=1;
     iTemp:= 1;
     for i:= 1 to length(asArray[j]) do
       begin
         if asArray[j][i] = '/' then
           begin

             asChunk1[k]:= copy(asArray[j], iTemp, (i - iTemp) + 1);
             iTemp:= i + 1;
             k:= k + 1;
           end;
       end;
     iSChunk:= k - 1;
   end

  else
   begin
     k:= 1;
     iTemp:= 1;
     for i:= 1 to length(asArray[j]) do
       begin
         if asArray[j][i] = '/' then
           begin

             asChunk2[k]:= copy(asArray[j], iTemp, (i - iTemp) + 1);
             iTemp:= i+1;
             k:= k + 1;
           end;
       end;
     iFChunk:= k - 1;

     iCurrent:= iSChunk;
     sCurrent:= '';

     for i:= 1 to iSChunk do
       begin
         sCurrent:= sCurrent + asChunk1[i];
       end;

     for i:= 1 to iFChunk do
       begin
         if asChunk2[i] = '../' then
           begin
             if iCurrent > 1 then
               begin
                 sTemp:= asChunk1[iCurrent];
                 sCurrent:= copy(sCurrent, 1, length(sCurrent) - length(sTemp));
                 iCurrent:= iCurrent - 1;
               end;
           end

         else if asChunk2[i] <> './' then
           begin
             sCurrent:= sCurrent + asChunk2[i];
             iCurrent:= iCurrent + 1;
             asChunk1[iCurrent]:= asChunk2[i];
           end

         else
           begin
           end;
       end;
     writeln(FHFile, sCurrent);
   end;
  end;
  close(FHFile);
end.