信息學奧林匹克競賽-你的飛碟在這兒

　　衆所周知，在每一個彗星後都有一隻UFO。這些UFO時常來收集地球上的忠誠支持者。不幸的是，他們的飛碟每次出行都只能帶上一組支持者。因此，他們要用一種聰明的方案讓這些小組提前知道誰會被彗星帶走。他們爲每個彗星起了一個名字，通過這些名字來決定這個小組是不是被帶走的那個特定的小組（你認爲是誰給這些彗星取的名字呢？）。關於如何搭配的細節會在下面告訴你；你的任務是寫一個程序，通過小組名和彗星名來決定這個小組是否能被那顆彗星後面的UFO帶走。 

　　小組名和彗星名都以下列方式轉換成一個數字：最終的數字就是名字中所有字母的積，其中“A”是1，“Z”是26。例如，“USACO”小組就是21*19*1*3*15=17955。如果小組的數字 mod 47等於彗星的數字mod 47,你就得告訴這個小組需要準備好被帶走！（記住“a mod b”是a除以b的餘數；34 mod 10等於4） 

　　寫出一個程序，讀入彗星名和小組名並算出用上面的方案能否將兩個名字搭配起來，如果能搭配，就輸出“GO”，否則輸出“STAY”。小組名和彗星名均是沒有空格或標點的一串大寫字母（不超過6個字母）。

var
i,sum1,sum2:longint;
s1,s2:string;

begin
	assign(input,'in.txt');
	reset(input);
	readln(s1);
	readln(s2);
	
	sum1:=1;
	for i:=1 to length(s1) do
	begin
		sum1:=sum1*(ord(s1[i])-ord('A')+1);
	end;
	
	sum2:=1;
	for i:=1 to length(s2) do
	begin
		sum2:=sum2*(ord(s2[i])-ord('A')+1);
	end;
	
	if sum1 mod 47=sum2 mod 47 then writeln('GO')
	else writeln('STAY');
end.