```cpp
var st,st1:string; s,s2,i:longint;
begin
readln(st);
readln(st1);
s:=1;
s2:=1;
for i:=1 to length(st) do s:=s*(ord(st[i])-64);
for i:=1 to length(st1) do s2:=s2*(ord(st1[i])-64);
if s mod 47=s2 mod 47 then writeln('GO') else writeln('STAY');
end.
写的不是很好
```
by 飞机 @ 2015-11-29 19:33:17