VAR I,K:INTEGER; S,S1:STRING;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(S);
      S1:='GYUMRI';
      K:=1;   
      FOR I:=1 TO LENGTH(S) DO
          IF S[I]=S1[K] THEN K:=K+1;
      IF K=7 THEN WRITELN('YES') ELSE WRITELN('NO')
END.

VAR I:INTEGER; S,S1:STRING;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(S);
      S1:='GYUMRI';
      FOR I:=1 TO LENGTH(S) DO
          IF S[I]=S1[1] THEN DELETE(S1,1,1);
      IF S1='' THEN WRITELN('YES') ELSE WRITELN('NO')
END.