PROGRAM CKMPTEST(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 KMPTEST.SRC}

   BEGIN
       M:=GETSTR(P);
       N:=GETSTR(S);
      IF (M>=1) AND (N>=0) THEN BEGIN
        KMPTEST (P,M);
        IF (P=S) AND (M=N) THEN
           WRITELN(LST,'SUCCESS')
        ELSE
           WRITELN(LST,'FAILURE');
     END
  END.