Section 1.1 Your Ride Is Here

模拟

{
ID: yaoyuan4
PROG: ride
LANG: PASCAL
}
Program ride;
const
  yes = 'GO';
  no = 'STAY';
  inf = 'ride.in';
  outf = 'ride.out';
var
  flag : boolean;
  x, y : string;
  a : array['A'..'Z'] of longint;
Procedure init;
  var
   i : char;
  begin
   assign(input, inf); reset(input);
   flag := false;
   for i := 'A' to 'Z' do
    a[i] := ord(i) - ord('A') + 1;
   readln(x);
   readln(y);
   close(input);
  end;
Procedure orz(s : string; var t : longint);
  var
   l, i : longint;
  begin
   t := 1;
   l := length(s);
   for i := 1 to l do
    t := t * a[s[i]];
   t := t mod 47;
  end;
Procedure work;
  var
   s1, s2 : longint;
  begin
   orz(x, s1);
   orz(y, s2);
   if s1 = s2 then flag := true;
  end;
Procedure print;
  begin
   assign(output, outf); rewrite(output);
   if flag then writeln(yes) else writeln(no);
   close(output);
  end;
begin
  init;
  work;
  print;
end.