main :: IO ()
main = do
  s <- getLine
  putStrLn $ if solve s then "YES" else "NO"

solve :: String -> Bool
solve s = even len && take mid s == drop mid s
  where
    len = length s
    mid = len `div` 2