{
ID:tzamyha2
PROG:ride
LANG:PASCAL
}
Var
s1,s2:string;
m,n,i,j:LongInt;
Begin
Assign(Output,'ride.out');
Rewrite(Output);
Readln(s1);
Readln(s2);
m:=1;n:=1;
For i:=1 to length(s1) Do
m:=m*(Ord(s1)-64);
For i:=1 to length(s2) Do
n:=n*(Ord(s2)-64);
m:=m mod 47;
n:=n mod 47;
If m=n Then Writeln('GO') Else Writeln('STAY');
Close(Output);
End.