Problem:
Score : 400 points

Problem Statement

Fennec and Snuke are playing a board game.

On the board, there are N cells numbered 1 through N, and N-1 roads, each connecting two cells. Cell a_i is adjacent to Cell b_i through the i-th road. Every cell can be reached from every other cell by repeatedly traveling to an adjacent cell. In terms of graph theory, the graph formed by the cells and the roads is a tree.

Initially, Cell 1 is painted black, and Cell N is painted white. The other cells are not yet colored.
Fennec (who goes first) and Snuke (who goes second) alternately paint an uncolored cell.
More specifically, each player performs the following action in her/his turn:

Fennec: selects an uncolored cell that is adjacent to a black cell, and paints it black.

Snuke: selects an uncolored cell that is adjacent to a white cell, and paints it white.

A player loses when she/he cannot paint a cell. Determine the winner of the game when Fennec and Snuke play optimally.

Constraints

2 \leq N \leq 10^5

1 \leq a_i, b_i \leq N

The given graph is a tree.

Input

Input is given from Standard Input in the following format:

N
a_1 b_1
:
a_{N-1} b_{N-1}

Output

If Fennec wins, print Fennec; if Snuke wins, print Snuke.

Sample Input 1

7
3 6
1 2
3 1
7 4
5 7
1 4

Sample Output 1

Fennec

For example, if Fennec first paints Cell 2 black, she will win regardless of Snuke's moves.

Sample Input 2

4
1 4
4 2
2 3

Sample Output 2

Snuke

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

{-# LANGUAGE BangPatterns, MultiWayIf #-}
import Control.Arrow
import Control.Monad.Fix
import Data.Int
import Data.Foldable
import Data.List
import qualified Data.Vector as V
import qualified Data.Vector.Unboxed as VU
import qualified Data.ByteString.Char8 as B
import Data.ByteString.Internal (accursedUnutterablePerformIO)
import Debug.Trace

solve :: Int -> VU.Vector (Int, Int) -> String
solve !n !abn = if countFrom 0 graph' > countFrom (n - 1) graph'
  then "Fennec"
  else "Snuke"
 where
  graphFrom :: VU.Vector (Int, Int) -> V.Vector [Int]
  graphFrom vec =
    V.accum (flip (:)) (V.replicate n []) $ VU.toList vec ++ VU.toList
      (VU.map (\(!x, !y) -> (y, x)) vec)

  graph :: V.Vector [Int]
  graph = graphFrom abn

  graph' :: V.Vector [Int]
  graph' =
    let (!x, !y) = findHalf $ findPathBetween 0 (n - 1)
    in  graphFrom
          $ VU.filter (\(!a, !b) -> (a, b) /= (x, y) && (b, a) /= (x, y)) abn

  countFrom :: Int -> V.Vector [Int] -> Int
  countFrom s gr = go s 0 [s]
   where
    go !s !acc !path =
      let next = gr V.! s
      in
        foldl'
          (\(!acc) (!n) -> if n `notElem` path then go n acc (s : path) else acc
          )
          (acc + 1)
          next

  findHalf :: [Int] -> (Int, Int)
  findHalf xs =
    let n = length xs
    in  if even n
          then (xs !! (n `div` 2 - 1), xs !! (n `div` 2))
          else (xs !! (n `div` 2), xs !! (n `div` 2 + 1))

  findPathBetween :: Int -> Int -> [Int]
  findPathBetween s t = reverse $ (t :) $ go s t []
   where
    go s t acc
      | s == t
      = acc
      | otherwise
      = let next = graph V.! s
        in  (\xs -> if null xs then [] else head xs) $ filter
              (not . null)
              [ go n t (s : acc) | n <- next, n `notElem` acc ]

main = do
  let readInt :: Integral a => B.ByteString -> Maybe (a, B.ByteString)
      readInt = fmap (first fromIntegral . second B.tail) . B.readInt

  n   <- (\vec -> (vec VU.! 0)) . VU.unfoldrN 1 readInt <$> B.getLine
  abn <-
    VU.replicateM (n - 1)
    $   (\vec -> (vec VU.! 0 - 1, vec VU.! 1 - 1))
    .   VU.unfoldrN 2 readInt
    <$> B.getLine

  putStrLn $ solve n abn