Problem:
Score : 200 points

Problem Statement

You are given a string S. Each character of S is uppercase or lowercase English letter.
Determine if S satisfies all of the following conditions:

The initial character of S is an uppercase A.

There is exactly one occurrence of C between the third character from the beginning and the second to last character (inclusive).

All letters except the A and C mentioned above are lowercase.

Constraints

4 ≤ |S| ≤ 10 (|S| is the length of the string S.)

Each character of S is uppercase or lowercase English letter.

Input

Input is given from Standard Input in the following format:

S

Output

If S satisfies all of the conditions in the problem statement, print AC; otherwise, print WA.

Sample Input 1

AtCoder

Sample Output 1

AC

The first letter is A, the third letter is C and the remaining letters are all lowercase, so all the conditions are satisfied.

Sample Input 2

ACoder

Sample Output 2

WA

The second letter should not be C.

Sample Input 3

AcycliC

Sample Output 3

WA

The last letter should not be C, either.

Sample Input 4

AtCoCo

Sample Output 4

WA

There should not be two or more occurrences of C.

Sample Input 5

Atcoder

Sample Output 5

WA

The number of C should not be zero, either.

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

uses
  SysUtils,
  Classes;
 
 function isLower(const value : string): boolean;
	const
		UPP = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
	var
		upper : string;
		i : Integer;
	begin
	Result := True;
	upper := UPP;
	if Length(Value) <> 1 then
		Exit(False);
	for i := 1 to Length(upper) do
		if value = upper[i] then
			Exit(False);
	end;
 
 function judgeFunc(const Value : string) : string;
	const
		BAD = 'WA';
		OK = 'AC';
	var
		i : Integer;
		flag : Boolean;
	begin
	Result := OK;
	flag := False;
	i := 1;
	if not (Value[i] = 'A') then
		Exit(BAD);
	Inc(i);
	if  not isLower(Value[i]) then
		Exit(BAD);
	i := Length(Value);
	if not isLower(Value[i]) then
		Exit(BAD);
	for i := 3 to Length(Value) - 1 do
		begin
			if Value[i] = 'C' then
				begin
				if flag then
					Exit(BAD)
				else
					flag := True;
				end
			else if not isLower(Value[i]) then
				Exit(BAD);
		end;
	if not flag then
		Result := BAD;
	end;
 
procedure MainProc;
	var
		aText : string;
		pushText : string;
	begin
	ReadLn(aText);
	pushText := judgeFunc(aText);
	writeLn(pushText);
	end;
	
begin
MainProc;
end.