var s1,s2,th:string;
    len,p,i,num:longint;
begin
 readln(s1);
 readln(s2);
 s2:=s2+'/';
 i:=1;
 if length(s1)>length(s2) then len:=length(s1)
 else len:=length(s2);
 for i:=1 to len do
  if s1[i]<>s2[i] then break;
 p:=i-1;
 for i:=p downto 1 do
  if s2[i]='/' then break
  else dec(p);
 for i:=p to length(s2)-1 do
  if s2[i]='/' then inc(num);
 inc(p);
 for i:=p to length(s1) do th:=th+s1[i];
 if length(s2)>2 then for i:=1 to num do write('../');
  writeln(th);
end.