PROGRAM  CSTRMTCH(INPUT,OUTPUT);
  TYPE SS=PACKED ARRAY[ 1..20 ] OF CHAR;
  VAR S,P:SS;
      N,M,L,KEY:INTEGER;
      X:BOOLEAN;
  {$I B:STRMTCH.SRC}

  BEGIN
    READ(S,P);
    READLN;
    FOR L:=1 TO N DO
      READ (S[ L ]);
    WRITELN(LST);
    FOR L:=1 TO N DO
      WRITE (LST,S [ L ]);
    WRITELN(LST); WRITELN(LST);
    FOR L:=1 TO M DO
      READ (P[ L ]);
    WRITELN(LST);
    FOR L:=1 TO M DO
      WRITE (LST,P[ L ]) ;
    WRITELN(LST); WRITELN(LST);
    STRMTCH(N,M,KEY,S,P);
    IF KEY=1 THEN WRITELN(LST,'SUCCESS')
             ELSE WRITELN(LST,'FAILURE')
  END.