import Control.Applicative
import Data.Bool (bool)

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve xs = let l = length xs
               (as, bs) = splitAt (l `div` 2) xs
           in bool "NO" "YES" $ as == bs