如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

来自"NOCOW"

{
ID:skywind2
LANG:PASCAL
TASK:ride
}
var s,s1,i,l,l1:longint;
    a,b:string;
begin
     readln(a);
     readln(b);
     s:=1;
     s1:=1;
     l:=length(a);
     l1:=length(b);
     for i:=1 to l do
         s:=s*(ord(a[i])-64);
     for i:=1 to l1 do
         s1:=s1*(ord(b[i])-64);
     if s mod 47=s1 mod 47 then writeln('GO')
                           else writeln('STAY');
end.
 
 
 
 
{
ID:z_zfzfz1
LANG:PASCAL
TASK:ride
}
 
const a:array['A'..'Z']of integer
      =(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26);
var s:string[6];
    i,ji1,ji2:longint;
begin
     assign (input,'ride.in'); assign (output,'ride.out'); reset (input); rewrite (output);
     readln (s); ji1:=1; ji2:=1;
     for i:=1 to length(s) do ji1:=ji1*a[s[i]];
     readln (s);
     for i:=1 to length(s) do ji2:=ji2*a[s[i]];
     if ji1 mod 47=ji2 mod 47 then writeln ('GO')
                       else writeln ('STAY');
     close (output);
end.