import Data.Bits (xor)
import Data.Bool (bool)

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 True s
  where
    h = head s
    inner x ccs
      | null cs   = (h == c) `xor` y
      | otherwise = inner y cs
      where
        (c : cs) = ccs
        y = not x
