```cpp
var st1,st2:string;
p,q:int64;
i:longint;
begin
p:=1;
q:=1;
readln(st1);
readln(st2);
for i:=1 to length(st1) do
p:=p*(ord(st1[i])-ord('A')+1);
for i:=1 to length(st2) do
q:=q*(ord(st2[i])-ord('A')+1);
if p mod 47=q mod 47 then writeln('GO')
else writeln('STAY');
end.
```
by chensw @ 2017-05-14 13:51:23
q,p这有问题
by chensw @ 2017-05-14 13:52:27
要加一
by chensw @ 2017-05-14 13:53:28