import Data.Bits
import Data.Bool (bool)
import Data.Char (chr, ord)

main :: IO ()
main = do
    s <- getLine
    answer $ solve s

type Answer = Bool
answer :: Answer -> IO ()
answer = putStrLn . bool "First" "Second"

solve :: String -> Answer
solve s = inner 0 (2 ^ 26 - 1) s
  where
    a = ord 'a'
    h = head s
    inner :: Int -> Int -> String -> Answer
    inner x y ccs
      | null cs   = (h == c) `xor` odd r
      | otherwise = inner p q cs
      where
        (c : cs) = ccs
        p = x `xor` shiftL 1 (ord c - a)
        q = y `xor` shiftL 1 (ord c - a)
        r = popCountDefault p + popCountDefault q
