usaco 1.1.1 ride

简单水题，模拟即可

program ride;
var
  a:array['A'..'Z'] of integer;
  j,p,q:longint;
  s1,s2:string;
  i:char;
begin
  assign(input,'ride.in');
  reset(input);
  assign(output,'ride.out');
  rewrite(output);
  readln(s1);
  readln(s2);
  for i:='A' to 'Z' do
    a[i]:=ord(i)-ord('A')+1;
  p:=1;
  q:=1;
  for j:=1 to length(s1) do
    p:=p*a[s1[j]];
  for j:=1 to length(s2) do
    q:=q*a[s2[j]];
  if p mod 47=q mod 47 then writeln('GO')
    else writeln('STAY');
  close(input);
  close(output);
end.