var i,j,n,m,l:longint;

a:array[0..100]of string;

ii:string;

begin

n:=1;m:=1;

a[1]:='http://www.acm.org/';

repeat

readln(ii);

l:=length(ii);

if ii[1]='V' then begin n:=m+1;inc(m);a[m]:=copy(ii,7,l-6);writeln(a[m]);end;

if ii[1]='F' then if m=n then writeln('Ignored')

else begin inc(m);writeln(a[m]);end;

if ii[1]='B' then if m=1 then writeln('Ignored')

else begin dec(m);writeln(a[m]);end;

until ii='QUIT';

end.

最后居然打出个FORWARD,..

我也是啊