program Files;
 
var
   f,g: Text;
   count,count2,temp,temp2,e,m,b:integer;
   s,t,z:string;

begin
   Assign(g,'DATA3.txt');
   Assign(f,'OUT3.txt');
   Rewrite(f);
   Reset(g);

for count2:= 1 to 5 do
begin

readln(g,s);
readln(g,t);
repeat
m:=0;

if pos('../',t)= 1 then
 begin
 m:=1        ;
 Delete(t, 1, 3) ;
 Delete(s, length(s), 1);
 b:=0;
 repeat
 if (s[length(s)]= '/') or (length(s)<=1) then b := 1
 else
 Delete(s, length(s), 1);

 until b=1;
 end;


if pos('./',t)=1 then
 begin
 m:=1;
 Delete(t, 1, 2)
 end;

if m=0 then
begin
temp:=pos('/',t);
z:=Copy(t, 1, temp);
s:=s+z;
Delete(t, 1, temp)
end;

until (length(t) <= 1) {or (length(s) < 2) };

if s[1] <> '/' then Insert('/', s, 1)  ;
writeln(f, s);

end;

   close(f);
end.