PROGRAM CKMPSCAN(INPUT,OUTPUT);
 CONST MAXSTRING=80;
 TYPE STRNG=ARRAY [1..MAXSTRING ] OF CHAR;
 VAR  P,S :STRNG;
      FLINK :ARRAY [1..128]  OF INTEGER;
      M,N   :INTEGER;

 {$I B:KMPSCAN.SRC}

   BEGIN
       M:=GETSTR(P);
       N:=GETSTR(S);
      IF (M>=1) AND (N>=0) THEN BEGIN
        IF (P=S) AND (M=N) THEN BEGIN
           WRITE  (LST,'SUCCESS');
           WRITELN(LST);
           END;
        FOR M:=1 TO N DO
           M:=M+1;
          BEGIN
           WRITE  (LST,'FAILURE');
           WRITELN(LST);
        END
       END
  END.


















































      END;
   BEGIN
       M:=GETSTR(P);
       N:=GETSTR(S);
      IF (M>=1) AND (N>=0) THEN BEGIN
        IF (P=S) AND (M=N) THEN BEGIN
           WRITE  ('SUCCESS');
           WRITELN;
           END;
        FOR M:=1 TO N DO
           M:=M+1;
          BEGIN
           WRITE  ('FAILURE');
           WRITELN;
        END
       END
  END.