import Data.List
import qualified Data.ByteString.Char8 as B
import qualified Data.IntSet as S
main=do
    [n,k]<-map read.words<$>getLine::IO[Int]
    as<-unfoldr(B.readInt.B.dropWhile(<'!'))<$>B.getLine
    putStrLn $ if S.member k $ f k as then "First" else "Second"

f k as = foldl' p S.empty [0..k] where
    p s i | S.member i s = s
          | otherwise = foldl' (flip S.insert) s $ map (+i) as