import Data.Bool
import Data.List

main = do
 b <- getLine
 n <- readLn
 a <- getLine
 putStrLn $ bool "SUCCESS" "FAILURE" $ magic n b a

magic n b a
 | length (group (a++b)) == 1 = True
 | sort b /= sort a = False
 | n==0 && a /= b = False
 | n==1 && reverse a == b = False
 | otherwise = True