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

来自"NOCOW"

var a,b:string[6]; s,t:longint; i:integer; begin s:=1; t:=1; readln(a,b); for i:=1 to 6 do begin s:=s*(ord(a[i])-64); t:=t*(ord(b[i])-64); end; if (s-t) mod 47=0 then write('GO') else write('STAY') end.