var s,s1:string;
     i,n:integer;
     f,g:text;
begin
writeln('Ââåäèòå àäðåñ ');
readln(s);
  i:=1;
  s1:='';
while pos('/',s)<>0 do
begin
s1:=s1+s[i];
i:=i+1;
n:=pos('/',s);
s1:=copy(s,1,n-1);
delete(s,1,n); 
writeln(s1);
end;
writeln(s);
end.