program p1015;var s:string; w,i:longint;begin repeat readln(s);w:=length(s); for i:=1 to w do begin if s[i]='#' then if i<>1 then begin delete(s,i-1,2); i:=i-2; w:=w-2; end else begin delete(s,1,1); dec(i); end; if s[i]='@' then if i<>1 then begin delete(s,1,i); w:=w-i; i:=1; end else begin delete(s,1,1); dec(i); end; if i>=w then break; end; writeln(s); until seekeof;end.