记录编号	57382	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 单词缩写	最终得分	100
用户昵称	hjr1995	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2013-04-10 07:27:50	内存使用	0.00 MiB

var
s:string;
i,n,w:longint;

function can(x:longint):boolean;
  var
  q:string;
  begin
    if x<3 then exit(false)
     else if x>3 then exit(true)
      else
      begin
        q:=copy(s,1,3);
        q:=upcase(q);
        if (q='THE')or(q='FOR')or(q='AND') then exit(false);
        exit(true);
      end;
  end;
begin
  assign(input,'abbreviation.in');reset(input);
  assign(output,'abbreviation.out');rewrite(output);
  readln(n);
  for i:=1 to n do
    begin
      readln(s);
      w:=pos(' ',s);
      while (length(s)<>0) do
        begin
          if can(w-1) then write(upcase(s[1]));
          delete(s,1,w);
          w:=pos(' ',s);
          if w=0 then w:=length(s)+1;
        end;
      writeln
    end;
  close(input);
  close(output);
end.